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For the Radio Shack TRS-80 Model 100 
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With ВО5ІМЕ55РАК-- the Model 100 GRAPH+: Prints out Bar, Line and 


is virtually a complete tool for the 
manager or executive. Picture how 


this added capability will help you. 


WRITE+: Instead of merely a text 
preparation device the Model 100 
becomes a real word processor. 
Margins . . . side, top and bottom. 
Title page, topic headings, page 
numbers, and even headers and 
footers. You can even right justify 
and print multiple copies. It has 
over 36 features and countless 
format possibilities. 

EXPNS+: By simply entering 
expenses into eighteen categories, 
you get a twelve day spreadsheet, 
giving totals for each day, and 
category. Names of rows and 
columns are instantly changeable, 
and the sheet becomes a budget 

or even a financial report. Replica- 
tion across the columns, cumlative 
totals, and automatic growth or 
decline rate projection, make 


EXPNS* an excellent planning tool. 


And, all the math is built right in. 


CERTIFICATION 
SEAL 


TRS-80 is a trademark of 
Tandy Radio Shack, Inc. 
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Pie graphs of any EXPNS+ report 
on the DMP-100 dot matrix printer. 
Shows the percents on the pie chart 
and values on the others. 


TELEX-*: From any phone send any 
text file to any Telex machine in the 
world. Just enter the receiving 
Telex number. Send Mailgrams for 
next day delivery to any address 

at reduced rates through the 

Action Telex system. 










PUT+: Lets you list any informa- 
tion in an organized fashion. It 
prompts for each entry and very 
rapidly creates addresses or schedule 
items and even inventory. 

SORT+: Allows you to sort any 

list you compile with PUT+ alphabet- 
ically or numerically from any 
category in the entry. It can sort 
large files up to 20 times faster than 
an all Basic program. 


MASTERCARD/VISA/COD 


PCSG provides hotline software 
support for the Model 100. Give us 
a call at 1-214-351-0564. 
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From Computer Plus to YOU... 
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Color Computer 16K $475 
w/46K Ext. Basic 5255 
w/32K Ext. Basic $345 


Model 12 
1 Drive $2699 
2 Drive $3375 


Model IV 16K $849 
Model IV 64K 
2 Disk & RS232 с 51699 
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Okidata 80 5320 





Okidata 82А 5399 Color Computer Disk Drive Smith Corona TPI " 
Okidata 92 5510 Drive 0 $470 Drive 4 $299 Daisy Wheel $495 
BUY DIREC Here are just a few of our fine offers... 
call TOLL FREE for full information. 
COMPUTERS R.S. Modem! D.C. 129 DISK DRIVES 
Model 12 64K 1 Drive $2699 R.S. Modem II D.C. 199 R.S. Model IV 1ST-Drive 515 
Model 12 64K 2 Drive 3375 R.S. DC-1200 565 Tandon 40 Track MI 289 
Model IV 16K 849 PRINTERS Color Computer Drive 1 299 
Model IV 64K Daisy Wheel II 1745 Color Computer Drive 0 470 
2 Disk & RS232 c 1699 DWP-410 1320 Primary Hard Disk MII 3099 
Color Computer 16K 175 Silver Reed EXP 550 D.W. 679 Primary Hard Disk MIII 2199 
Color Computer 16K Smith Corona TPI Daisy Wheel 495 ETC. 
wiextended basic 255 Epson Call CCR-84 recorder 52 
¢Color Computer 32K CGP-115 199 C. C Joysticks 22 
wiextended basic 345 DMP-100 345 16K RAM Chips 25 
Pocket Computer 2 165 DMP-120 410 64K RAM Chips 75 
Model 16 1DR 128K 4199 DMP-200 599 32K Microbuffer Inline 229 
Model 16 2DR 128K 4799 DMP-400 1010 SOFTWARE 
Model 100 8K 679 DMP-500 1539 Brand Name Software е 
Model 100 24K 835 DMP-2100 1779 Send for listing. 
MODEMS Okidata 82A 399 R.S. Software 10% off list 
Lynx Direct Connect MI/MIII 235 Okidata 83A 655 Coco FHL Flex D.O.S. 69.95 
Hayes Smart Modem II 235 Okidata 84 Parallel 999 Parallel Printer Cables are 
Hayes Smart Modem 1200 565 Okidata 92 510 available for most computers. 
Novation Smartcat 1200 459 Okidata 93 859 Color Computer 64K requires 
Novation J-CAT 125 Gemini 10 319 Disk 0 and D.O.S. 
R.S. Acoustic Coupler AC-3 129 Prowriter 375 TOLL FREE 
1-800-343-8124 
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W onders 
of East 
And West, 


Sheik 


Baby 


One of the things which I consider to 
be among the most fantastic about the 
Portable Computer is its ability to carry 
programs with it in its own memory. 
This, I believe, is a true advance in the 
world of computing. And, with the 
built-in programs in the Model 100, I 
believe what we are pleased to hold in 
our hands is one of the best applications 
of computers today. 

Well, the truth is that I just don’t get 
out of the office very much. And there is 
no question that the Portable Computer 
— while it certainly shines in the office 
environment — is without peer on the 
road. (Could that be why we have a 
column with that name?) So,acouple 
of weeks ago when | was finally dragged 
off for some restful vacation, I decided 
it would bea great opportunity to “field 
test" the Portable Computer in some 
far-reaching fields. 

I will not try to tell you that the better 
half of my family thought it was totally 
peachy-keen to have a computer going 
along on a vacation. There was some 
mention of needing to “get away from 
those things for just two weeks." But 
what an opportunity. 


OT 


it 
up, 


So, as you will see on this page, I am 
also indulging myself in showing you a 
“vacation” picture. Yes, that’s me, at the 
bottom of the pyramid of Cheops. And, 
yes, that’s my trusty Portable Compu- 
ter. We were workinga little program to 
figure the height of equilateral triangles 
using the pyramid. 

As for the hat: It is hot at the pyram- 
ids, of course. A friendly camel-driver 
lent me his sun-bonnet. 

Should 1 digress. Perhaps so. 

If you will accept the given that my 
Portable Computer was going on vaca- 
tion with me, then the only question is 
why. And the answer is pretty simple. 
Or, perhaps, the answers. 

To get to said pictured pyramid, we 
had to take a plane, a boat, a bus and, 
finally (I kid you not) a camel. No, I did 
not have to take the camel, but who 
could miss a chance like that! 

There is no electricity on the plane, 
the boat had European current only, the 
bus didn't have any sort of electricity 
and the camel, well... How is a serious 
computerist going to solve all these 
problems? 

Answer: Batteries and the Portable 





Computer. 

l loaded up a few games from Silver- 
ware Software into my Portable, stashed 
it in a tote bag along with a lot of other 
stuff we didn't want to chance the air- 
lines with, and headed out for New 
York and, hence, Athens. A royal send- 
off in New York was arranged by Bob 
Rosen of Spectrum Projects. 

1 played Reversi from New York to 
Athens. The flight was nine hours. The 
Portable Computer won a lot more 
often than did I. Transferred (as they 
say in the travel business) from the air- 
port to the 7.5.8. Stella Solaris, 1 
thought I was seeing double. Someone 
else aboard, a fine gentleman named 
Angus German of Costa Mesa, Calif., 
also had a Portable under his arm. My 
wife winced. So did his. But we played it 
cooland didn’t devote too much time to 
computing (you'll see some of his pro- 
grams in future issues). 

Oh, yes, the pyramids. Two days out 
of Athens we hit Port Said, Egypt. 
Trusty Portable Computer and | loaded 
ourselves onto a bus for a three-and-a- 
half-hour ride to Cairo and, hence, the 
pyramids. Near them, І boarded a camel 
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named — I was told “Yankee Doodle 
Dandy” (although I expect the name 
changes with the nationality of the tour- 
ist). Anyhow, “Yankee Doodle Dandy,” 
the Portable Computer and I soon 
arrived at the pyramids. 

I sat down and started computing, 
working a simple program I was taught 
in high school geometry. The purpose 
wasn't to really do anything at this point 
so much as "test" the portability of the 
Portable. 

Some camel driver loaned me his hat 
— the sun was hot. Wife Willo snapped 
the photograph. And the Portable Com- 
puter? With all the banging, dirt, dust 
and heat, it performed beautifully. 

I’m sure this whole story, with which 
you are no doubt bored by now, does 
illustrate a point quite well. And that is 
that the Portable Computer is truly por- 
table. Whether it is in your car, on a 
boat, or on a camel — it will go where 
you need it to and perform as you want 
it to. 

More important, it is all you need. 
Because I was able to load my little 
geometry program into memory in the 
cool confines of my home here in Pros- 
pect, Ky., before ever venturing out, 
there was absolutely no need to take 
anything else along. I had the material I 
needed "on site," as they say. 

And that, | think, says worlds for the 
Portable Computer. 


On a more mundane subject, we are 
very gratified here by the acceptance of 
PCM — The Portable Computing Magazine. 
Many of you have been kind enough to 
write us to say how much you have 
enjoyed the first two issuesand that you 
are looking forward to seeing more of 
them. 

Well, naturally, more will be coming 
in future issues. And, shortly, more will 
be coming in each issue. 

The reason for this is that the eco- 
nomics of the magazine business are 
such that we try to run about half of the 
magazine with editorial material and 
the other half with advertising. Thus, as 
our advertising grows, so will PCM. We 
hope that, within the next several months, 
PCM will double in size. 

You can help us do that. The old 
request to "Please Patronize Our Ad- 
vertisers" may seem trite, but it does 
help us a lot. And the word spreads 
among advertisers. So, please do patron- 
ize those firms which advertise in PCM, 
and, too, please let them know where 
you saw their advertisments. It can only 
help, both of us by allowing us to pro- 
vide a bigger and better magazine. 

—Lonnie Falk 
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Letters 


Editor: 

Let me congratulate you on a superb pub- 
lication, PCM, the Portable Computing 
Magazine. | have ordered, received and am 
using the BUSINESSPAK- by Portable 
Computer Support Group. This letter was 
generated by their WR/TE+ program. Their 
manual is easy to read, understand and use. 

І have ordered Quick Plot from Solutions 
Computer Company, but have not received 
the program. As soon as І get some usage, I'll 
let you know the results. 

Applause and a bouquet of roses to Robert 
Frowenfeld for his clear, precise article Plot- 
ting Graphs with the Model 100. The pro- 
gram works very, very well. 

I personally thank you for your publica- 
tion, Mr. Robert Frowenfeld for his excel- 
lent article (I hope he contributes informa- 
tive articles that we, the novices, can use) 
and the Portable Computer Support Group 
for their friendliness, consideration, and 
easy-to-use software. 

1 am anxiously awaiting the August issue. 

Darran N. Huggins, M.D. 
Ashland, OH 
Editor: 

PCM promises to be as great as the Rain- 
bow! Congratulations on a fine first issue. 
My copy arrived the day before I got my 
PoCo. 

Since my “mainframe” is a CoCo, Га like 
to see the problem of transferring files from 
PoCo to CoCo addressed. My files refuse to 
transfer via cassette. Of course, | can tele- 
phone them from one to the other, but I'd 
like to see cassette files load directly into 
CoCo. 

Also, І hope someone comes up soon with 
a box that will enable me to use my Epson 
MX-80 without going into it each time to 
remove the serial-to-parallel card from the 
printer. 

It isn't often that I can argue with the 
experts, but contrary to what Bob Rosen 
says (page 13) I have no trouble flipping 
from page to page in text mode. All it takes is 
two SHIFT-up arrows or SHIFT-down ar- 
rows on my 24K machine. 

I hope Melvin Hefter puts his great exper- 
tise to work on some programs for PoCo. 
His programs for CoCo are among the most 
useful I have. 


Max C. Shank 
Chicago, IL 


Editor: 

I purchased a TRS-80 Model 100 Porta- 
ble Computer specifically to use as a termi- 
nal device from my office during the day and 
still be able to carry it home at night after 
work. І happen to work in a public institu- 
tion and cannot leave an expensive terminal 
unattended. I also own an Apple computer 
which I have had for years and 1 use it at 
home. The Apple has a serial card installed 
and І have been able to transfer material 
back and forth between the two computers 
using the Telecom at one end and ASCII 
Express Professional at the Apple end very 
easily. І use this method for bulk storage of 


my PoCo data onto Apple floppy disks 
rather than store stuff on the cassette record- 
er. lam transferring at 4800 Baud rate which 
is much faster than cassette, plus I gain the 
advantage of having a directory on the disk. 
In fact, one of my major objections to using 
a cassette for program storage is the lack of a 
directory. It is almost necessary to use a 
separate cassette tape for each program. I 
can't wait until the Shack announces a better 
bulk storage system for their excellent Po- 
Co. 
Larry Boulet 
Warren, MI 
Editor: 

Your "Lprint" (page 5) asks for mail re- 
sponses, etc. | think the name PorCo would 
be a better name than PoCo. There is CoCo 
that is in use and it could be confused with 
that name. Also, the Spanish connotation of 
words such as poco loco would detract from 
the significant seriousness of the name. 

One of the most important things that 
your magazine can do would be to develop a 
translation formula between MicroSoft 
(which I believe is the Model 100 language) 
and the BASIC language used by IBM and 
other PCs. 

I am a CPA and don't at all understand 
the creating of a program but I am self 
taught enough to be able to load it into the 
100. In fact, I did it with the Biosin program 
and obtained great results. By the way, was 
there a typographical error on page 12, line 
1470 of the program in the word “rere- 
garded"? Should the word be “regarded?” 
The word of course does not affect the utili- 
zation of the program. In fact, before typing 
this letter I ran the program on myself to see 
if | was capable in a “physical, emotional 
and intellectual" way. I was, so I typed this 
letter. 

I read all of the articles twice and all of the 
advertisements four times, and have already 
ordered some of the products offered. It is 
unfortunate that Radio Shack does not yet 
have any software in print or in cassette. 

My biggest need is to attain the ability of 
inputting data into the 100 that could be 
uploaded into an IBM, for example, that 
would fit into an existing IBM program 
without having to be entered via the IBM 
keyboard. I sincerely hope that IBM will 
have this in mind when it introduces its 
"Peanut" model. 

The other thing th^t puzzles me is the fact 
that Radio Shack has a computer that 
weighs less than four pounds but uses a 
computer cassette recorder (CCR-81) that 
weighs almost as much. Epson uses a built-in 
micro recorder. I think every Model 100 
owner would happily buy a micro recorder if 
it weighed less than a pound or so. 

Thanks ágain for having such an excellent 
publication. Lots of luck to you. 

By the way, how about the name Micro- 
Port? Or, if it has to be, Porto- Micro? 

In any event, what you have done for the 
industry and many lives, is worth any name. 


Rubin L. Gorewitz 
New York, NY 


Ask your dealer for the Porta™ series 
from Skyline—to help you work faster and better! 


PortaCalc'" — Model 100 "electronic spreadsheet" with 14 column by 26 row workspace! 
Full. use of the built-in function keys to save, load, screen print, report print, or to look 


Tam uia 


Full arithmetic operators including exponentistion. absolute value, integer, summation, 
and averaging. Calculations are done to 14 digits of precision and displayed up to 9 
digits. User selectable decimal place from none through seven—not just one, two, or 
floating! Formula replication is included to allow fast creation of worksheets. 


Worksheets may be saved, loaded, or merged using the computer's memory or 
cassette. Often used templates can be saved in memory for instant recall. 


Two powerful utility programs are included with PortaCalc at no extra 
charge! PortaDex"™ is a data exchange program that allows reformatting 
PortaCalc files into the DIF format used by VisiCalc. PortaPrint'" is an 
enhancement to the Model 100's text editor, adding the ability to adjust 
left, right, and top margins, and page length. Page numbering, headers, 
centered lines, flush right justification, new page control, and more. 


Comes with extensive documentation in padded 3-ring binder. Includes 
tutorial, detailed reference section, and executive level sample templates. 
Fully illustrated with screen prints, examples, and hints. 


PortaStat'" — Correlation, regression analysis, and descriptive statistics 
package, designed to be a working tool for today's businessman. 

Data can be input from cassette, memory, or keyboard. Interactive with 
PortaCalc data files! Thoroughly documented, includes tutorial. 


PortaFin'" —Present value, net present value, future value, annuities, 
interest factors, loan constants, internal rate of return and more! This user- 
friendly package prompts you for the needed input data, then gives you 
the answer to your loan or investment problem! Interactive with PortaCalc 
files, allowing you to "read" cash flow data from memory. Keyboard or 
cassette input also available. 


PortaMax'" — The powerful ‘simplex’ method of linear programming. Find 
the optimum ‘mix’ for a given set of constraints. Interacts with PortaCalc 
files to avoid time-wasting repetitive data entry. Tutorial, examples, and 
bibliography included. 


PortaFolio'" — Stock and bond valuation, betas, Macaulay's duration, yield 
to maturity, bond swap calculations, and much more. All in an easy to use 
program, interactive with PortaCalc data files. Supplied with comprehensive 
instructions and reference manual. 





All Porta series programs are supplied on cassette and require 24K RAM. 


Pricing — PortaCalc is $69.95, all others are $44.95 each. 
PNY 
em 


If ordering direct, add $2.00 shipping and uae per order. 
Dealer inquires invited. 





Model 100 is a trademark of Tandy Corp. VisiCalc їз a trademark of VisiCorp DIF is atrademars of Saftware Arts 
y 


— Skyline 


MARKETING CORD 





4510 W. Irving Park Rd. е Chicago, IL 60641 % (312) 286-0762 
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h — music. And who could duration of approximately 1⁄4 second. It 
blame a serious Model 100 is interesting to note that while the tone 
Portable Computer owner for generated with a pitch value of 16383 
wanting to hear some soft melodies can easily be heard, I found that I could 
while looking over his owner's manual? not hear any tones from the Model 100 
Well, it's no surprise that your PoCo when the pitch value dropped below 
has a built-in sound generator, We told 150. I imagine it won't be long before 
you that last month. Today we're going someone comes out with a program to 
to take a look into whatit takes to make use the Model 100 in testing à person's 
the Model 100 play a song (are you sure hearing at higher frequencies. 
Elton John started this way?). The song we're going to program 
The Model 100's sound generator is today is an old favorite from the movie 
capable of producing notes of virtually THE SOUND OF MUSIC called DO 
any frequency over a six octave range. RE MI. The nice thing about this song 
That gives us à pretty wide range of (for all you aspiring Liberaces) is the 
notes to use. To be a little more techni- fact that the whole song can be played 
cal, the SOUND command in BASIC has by using only eight different notes. Let’s 
the ability to generate as many as 16384 get into the program (Listing #1) and 
different tones. That's because the syn- look into the “nuts and bolts" that make 
tax of the SOUND command is: it work. 
SOUND pitch, length where pitch is à To make things run nice and fast, 1 
number or variable expression and can always (if 1 can) use the DEFINT state- 
take on any value in the range 0—16383. ment (line 5) to make all my variable 
The length parameter of the command names automatically integers. This can 
syntax stands for the tone's duration cut down dramatically on those pro- 
and has its value in the range | to 255, grams that would normally use the 
where a value of 50 provides a tone with Model 100's default variable type of 


double precision. Here, in line 5, 1 have 
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2 
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4 
5 
6 
7 
8 
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told BASIC that all variable names (A— 
Z) will be integers. Line 6 sets the varia- 
ble *N"to 59; this is the total number of 
notes in the song. Line 7 isa DIMension 
statement which sets up arrays for the 
notes to play (“N$”), the duration of 
each note (“L”), and the words to be 
displayed as the song is playing (“WD 
$). 

Lines 10-13 аге DATA statements 
that contain the notes (A,B,C, etc.) and 
the duration, and lines 20-27 are DATA 
statements that contain the words of the 
song. For you neophytes to the world of 
music, the musical scale consists of the 
letters “A” through “G.” A small prob- 
lem here: how do we play a song with 
eight notes using the seven letters A,B,C, 
D,E,F,G? Well don’t worry, line 29 
holds the clue . . . we'll just call the last 
letter *H." The song actually starts with 
the note *C,"and continues through the 
scale C-D-E-F-G-A-B-C, but we will 
give the second “С,” usually called high 
“C,” the designation *H." The DATA 
statement in line 30 contains the values 
outlined in the Model 100 user's manual 
for generating the various notes. The 
numbers (for this song) start at 2348 and 
progress downward as the notes get 
higher in pitch. The last note hasa value 
of 1174, exactly half of the first note's 
value of 2348. In music, the frequency of 
a note isexactly double (or half if you're 
going the opposite direction) of the 
same note in an adjacent octave. Using 
this scheme, this would mean that the 
next *C" note would have a value for 
generating sound on the Model 100 or 


1174/2, or 587, and a look in the 
owner's manual shows that this is exact- 
ly the value of the next highest “С” note! 

Line 40 reads in the values from the 
DATA statements for the notes and 
durations, and line 45 reads the words 
into the word array. Now we're ready to 
play some music! 

Line 50 reads ina string “TN$” which 
will be used to determine the note to be 
played. The array "FR" is also read in 
here; this is the list of pitch values 
referred to in line 30. 

Remember the sound command? 
Line 60 is the beginning of a FOR- 
NEXT loop which plays each note. But 
it sure does look a lot more complicated 
than the SOUND pitch,length format 
originally described. Well, that's be- 
cause we want this to work quickly and 
smoothly, and not get bogged down in 
loops searching for notes and values. 
The beauty of this routine, as you will 
see, is that it takes virtually no time to 
determine the note to play. But, more 
importantly, it takes the same amount 
of time to compute which note to play, 
and that's the secret to keeping the 
tempo smooth and rhythmic. 

The INSTR function imbedded in the 
SOUND instruction is used here to 
determine the numeric value for the 
pitch portion of the SOUND command. 
This function searches the string “TN$” 
which is the "CDEFGABH" already 
described, and looks for the value in the 
note array “N$.” It uses the result of this 
function, which is a value in the range 
1—8 as a pointer to the pitch array 





"FR." For example, the second note 
played is a "D." INSTR(TNS$,"D") will 
return a value of 2, and FR(2) is the 
value 2092 which will be sent to the 
sound generator to play the note "D." 

Now for the duration. The value read 
in for the length of time each note is to 
be played ranges from one to eight. In 
line 60 the length for each note is multi- 
plied by 12, resulting in the actual play- 
ing time for each note to vary from 12 to 
96 (12 x 8). Remember I said that a 
value of 50 equals approximately 4 
second? I've found that using a value of 
12 for one "beat" of music turns out to 
be a good value; it makes the song move 
along at an easy-to-listen-to pace. 

You may have noticed the PRINT 
statement in line 60 that is executed just 
before each note is played. This prints 
the element of the “WD$” array to the 
screen. These "elements" are the words 
to the song DO RE MI. 

Once the song is finished, the GOTO 
55 statement in line 70 simply clears the 
screen and starts the song playing over. 

While I am not a musician by any 
means, I have been able to take some 
simple pieces of music (like this one) 
and transfer the notes to my PoCo to 
give me some soothing moments while 1 
contemplate the world's more profound 
problems. In order to do this, I've deve- 
loped a method to facilitate the trans- 
ferral of sheet music to a numerical 
format. 

Using the chart that is found in the 
Model 100’s manual under the SOUND 
command, I have numbered each note, 
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starting at “1” for the “G” in the lowest 
octave with a pitch of 12538 and ending 
at “60” with the B-sharp in the highest 
octave with a pitch of 415 (see Figure 
#1). Next, I take a piece of sheet music 
and number each note with the match- 
ing value in the table (see Figure #2). 
The result is a series of numbers which 
represents the pitch values to be used in 
the SOUND command. The only re- 
maining task is to also assign a duration 
to each note. A simple method (but by 
no means the only one) to incorporate 
the length of each tone into the pitch 
value is to change the pitch value. Since 
there are 60 notes in the five octaves in 
Figure #1, no coded pitch value will be 
higher than 99. Let’s say, for the mo- 
ment that we will use only whole beats 
in our music scheme. To make the tone 
last two beats, I simply add 100 to the 
coded value; for three beats I add 


Listing 1: 
5 DEFINT 4-7 
6 N=59 
7 DIM N$(N) 


'Е,2,С,2,Е,4,0,5, 


,8,2,Е,2,0,4,Ғ,5, 


- ,A ,DEER 
- ,A ,DROP 
- ,A „МАМЕ 
- (А ,LONG 


„A ,FE,MALE ,DEER. 
„OF ,G0L,DEN ,SUN. 
„1 ,CALL ,MY,SELF. 
,LONG ,WAY „ТО ,RU 


another 100, and so on. For example, 
take the “C” note in the second octave. 
For a single beat it would be coded as 





18, for 2 beats it would be 118, and to 

hold the tone fora full bar of four beats, 

the value would be coded as 318. 
Armed with this novel (yet far from 


Listing 2: 
1 CLEAR 500 
5 DEFINT А-2 


revolutionary) idea, I have proceeded to 
code the numeric values for the song 
Music Box Dancer by Frank Mills. 
Using the TEXT program built into the 
Model 100, I created the document file 
named BOXDAN.DO that appears in 
Listing #3. This text file became the data 
file for the program in Listing #2 which 
reads the data file and plays the music. 
You will notice that all notes, except for 
the very last one, are one beat in length. 

Once the data is typed into the text 
file, I just run the program in Listing #2 
and enjoy a few moments of melodic 
relaxation. I would like to take this 
opportunity to encourage you Model 
100 owners to develop data for your 
favorite songs and send them in to us at 
PCM. We'll be happy to select some of 
the nicest tunes and publish them in 
next month's issue. Until then . . . play it 
again, Sam! 


7 ON ERROR GOTO 288 


10 DIM 2(60) 


108 DATA 12558,11856,11172,10544,9952,93 


94,8866,8358,7900,7456,7032,6642 


110 FORIZ1TO12:READJ (I) sNEXTI 
120 FORIz2TOS:FORJ*s1TO12:J((I-1)*12*J) =] 
(01-2) #1243) /21NEXTJ1NEXTI 


CLS 


OPEN"BOXDAN"FOR INPUT AS 1 


11=0 
11=11+1 


8070140 


INPUT#1,I:K=IMOD100 


SOUND J(K),12*(1*INT(I/190)) 


CLOSE:G0T0138 


NEE,DLE ,PUL,LING ,THRE 


„NOTE ,TO ,FOL,LOW ,50. 


Listing 3: 


„A ,DRINK ,WITH ,JAM ,AND , 


„WILL ,BRING ,US ,BACK ,TO 


,00 ,DO 
" CDEFGABH" 


2548,2092,1864,1758,1567,1596,12 


5,10,13,10,18,13,10,13 


5,10,13,10,18,13,10,15 


6,10,13,10,18,13,10,13 
6,10,13,10,18,13,10,13 


18,15,18,22,18,22,25,22,30,29,27,25,6,10 


113,18,25,25,20,17,13,17,20,23,22,18,27, 
25,10,13,18,13 

18,13,18,22,18,22,25,22,30,29,27,25,6,10 
113,18,25,23,20,17,15,17,20,23,18,15,22, 


40 FORISITON:READ N$(I),L(I):NEXTI 
45 FORISITON:READWD$ (1) МЕХТІ 
50 READ TNS:FORI=1TOLEN(TN$):READ FR(IDI 


NEXTI 
55 CLS 


680 РОКІ 1 ТОМ: PRINTWDS(1I)$sSOUND ҒК(ІМӘТЕ 


(TN$,N$CI)) D LCT) #12 


61 IFRIGHT$(WD$(I),1)2", "THENPRINT 


65 NEXTI 
70 807055 
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18,10,15,18,1 


30,27,23,18,15,18,23,27,25,18,27,25 


5,10,13,18,25,23,20,17,13,17,20,23,22,18 


,27,25,10,15,18,15 


30,27,23,18,15,18,23,27,25,18,27,25 


6,10,13,18,25,23,20,17,13,17,20,17,18,13 


,22,18,318 


[PCM 





PRICKLY-PEAR SOFTWARE 
QUALITY PROGRAMS FOR YOUR MODEL 100 


cp m 


52 s хе 
MONSTERS ~ 


Monsters & Magic 


The most realistic fantasy role-playing game yet for the 
Color Computer. You start out by rolling up yourcharacters 
basic ability scores and buying equipment. When you are 
ready it's into the dungeon. Your character starts at first 
level, but can rise in levels by garnering experience in the 
fray. If you have role-played fantasy games you will be 
amazed at the realism of the combat system. Armor class, 
initiative, and damage by weapon type are all included, 
with over 50 different monsters to fight - each with it's own 
abilities. As you rise in level you can win treasure and find 
magic weapons and spells - if you live!! You set the game 
length by telling how many monsters you want to fight 
before you reach your final battle to the death against the 
powerful Dungeon Lord. There are 1000+ place descrip- 
tion combinations in this text based game, and real excite- 
ment in every one! This is a fantasy simulation, and is truly 
not like any adventure game you have ever seen. For 1 
player. $19.95 tape—24K 


Astrology 


Truly a classic, this program will accurately cast your 
complete horoscope. You just enter the date, time, and 
place of birth. The sun sign, rising sign, mid heaven (MC), 
lunar nodes, and planetary influences including houses 
and aspects between the planets will all be calculated, and 
a full chart drawn. You can also do progressed charts and 
transits. It will even tell you the day of the week you were 
born. The accompanying book will help you interpret this 
chart of your horoscope. The extent of the documentation 
is tremendous, even by our exceptionally high standards, 
and no previous knowledge of the subject is required. You 
can share in this wisdom which has been used for thou- 
sands of years in many cultures. This program was written 
by a professional Astrologer. $34.95 tape — 16K 


Your personal check is welcome - no delay. Include 
$1.50 shipping for each program ordered. (Shipping free 
on $50.00 or larger orders). AZ residents add 7% sales 
tax. Orders shipped within two days. : 


Viking! 


A simulation for 1 to 4 persons. Each begins as a land- 
owner, and by farming their land, buying and selling land, 
expanding their fishing fleet, building on to their manu- 
factory, increasing their population, equiping and training 
more soldiers, and regulating their taxes, each player tries 
to increase their economic power and rank until one 
becomes ruler over all. But beware plagues, rats, raiders, 
revolts, bad weather, and other misfortunes which may lie 
along the road to success. As you progress, see the map of 
your holdings increase. Playable in 1 to 2 hours, and 
different every time, you may have an addiction problem. 
$19.95 tape — 24K 


о 
оо 
о 


GANGEUS JERS 


Gangbusters 


If you ever wanted to try a life of crime, this is your chance. 
You will start out as a Punk, but by using brains, and alittle 
muscle, you can rise to become a Hood, Runner, Bookie, 
Torpedo, Fence, Kingpin, or win by becoming Syndicate 
Boss. Indulge yourself. Bribe a judge, or the District 
Attorney. Pay off the Cops. Take out a contract on another 
player, but watch out, they may be after you. Buy trucking 
companies, bootleg operations, houses of ill fame, but 
remember, if you get caught, you may do some hard time. 
Do you have what it takes to take over? This game will keep 
you close to your rod, get you thinking about bulletproof 
glass in your car, and definitely bring out the worst in you, 
but you'll love every minute of it. For 2 to 6 players, takes 
about 2 hours to play. Every game is excitingly different. 
$19.95 tape — 24K 


Stocked by Quality Dealers, or 
Send Order To: PRICKLY-PEAR SOFTWARE 


9234 E. 30th Street 


Tucson, Arizona 85710 === 
(602) 886-1505  -— 








By Thomas J. Flamer 





ery often it is desirable to analyze 

V data and to find a relationship 

between two variables and ex- 

press this relationship in mathematical 

form by determining an equation con- 
necting the variables. 

When the data is plotted on a rectan- 
gular coordinate system it is often pos- 
sible to visualize one or more smooth 
curves which approximate the data. In 
particular, if the data seem to be approx- 
imated by a straight line we say that 
there exists a linear relationship be- 
tween the two variables. 

The general problem of finding equa- 
tions of approximating curves which fit 
given sets of data is called curve fitting. 
In this article we restrict our discussion 
to linear curves. 

One of the main reasons for curve 
fitting is to estimate one of the variables 
from a given value of the other. This 


process of estimation is called regres- 
sion and when a straight line is used to 
fit the data it is called linear regression. 
The accompanying program deter- 
mines the best straight line that fits a set 
of data. The data may be entered manu- 
ally from the keyboard or serially from 
a data file. The program proceeds to 
calculate means, variances, covariances 
and standard errors of estimate which 
are displayed and subsequently used to 
perform a least-squares fit designed to 
minimize the sum of the squares of the 
deviations of the actual data points 
from the straight line of best fit. The 
equation of the best line along with the 
slope, Y-intercept, and errors are dis- 
played, and from there the user encoun- 
ters a menu which allows him to: 
1) Perform linear regression, which 
means that additional data points can 
be interpolated or extrapolated from 


the determined best line. The user can 
specify whether he would like to deter- 
mine X froma given Y or Y froma given 
X. 

2) Compare actual data to that esti- 
mated by the least-squares line. 

3) Plot the actual data on Cartesian 
coordinates as well as the best line 
which passes through them. Maximum 
and minimum values of X and Y are 
displayed. 

4) Review statistical results previously 
displayed. 

5) End the program 


Data files to be input should be in the 
form of X,Y pairs; the program deter- 
mines the number of data pairs in a data 
file and stores them in arrays dimen- 
sioned X(100), Y(100). 

The program was designed to be used 
on a Model 100 with 24K. 





The listing: 8 * C 

38 ' CC 

32 ' M 
B ЕЕЕ ЧЕ ЗЕРРЕ ЗЕ ЗЕЕ ЧЕ ЗЕЕ ЗЕ ЗЕ ЗЕ ЧЕ ЧЕЗ ЗЕ E ORE EE ЗЕ ЧЕЧЕ 34 ' B 
6 '*** LINEAR REGRESSION PROGRAM ### 36 ' 8X 
B '##* BY FLAMER [JUNE 10, 1983] ж 38 ' SY 
Q 'kt*XtSEETXEXYY XXXV XXL eer EHE 40 ' XX 
11 ‘+ 4g * WE 
12 “š 


14 '*** VARIABLES s«« 


16 ' N NUMBER OF POINTS 

1B ~ W VALUE OF X 

20 ' Y VALUE OF Y 

22 ' XM MEAN OF X 

28 "ҮН MEAN OF Y 

24 ' XD STANDARD DEVIATION OF X 
26 ' YD STANDARD DEVIATION OF Y 
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COVARIANCE OF X AND Y 
CORRELATION COEFFICIENT 

SLOPE OF REGRESSION LINE 
Ү-ІМТЕКСЕРТ OF REGRESSION LINE 
SUM OF X-VALUES 

SUM OF Y-VALUES 

SUM OF SQUARED X-VALUES 
CALCULATED Y-VALUE 


45 H$2"X-ACTUAL  Y-ACTUAL  Y-CALCULATED" 
55 М18- ЖНННИ RHEE" INZ2S=" HERE. HORE" NIS 
сон, HERE" Ма =", HE" 

68 RV$zCHR$(27) + "р": ММЎ=СНК$ (27) + "д" 

70 DEFINT I,J,K,L 

85 ONERRORGOTOL150 

90 DIMX(100) ,Y(100) , YC( 190) 


91 CLS:PRINT" 
OBRAM":PRINTSTRING8$(39,"-"); 


LINEAR REGRESSION PR 


92 Р 
A 5 
93 P 
95 P 
DATA 
96 P 
E 

98 6 
100 
110 
112 
113 
128 
140 
168 
188 
228 
225 
240 


RINTIPRINT"THIS PROGRAM WILL PERFORM 


TATISTICAL ") 

RINT"ANALYSIS "3 
RINT" OF YOUR DATA AND FIT THAT 
RINT" TO A LEAST-SQUARES LIN 
08085400 

CLS 

PRINTRV$ 

РКІМТ@В, "LINEAR REGRESSION PROGRAM" 


PRINTNM$ 

PRINT"DATA ENTRY BY KEYBOARD--41»5" 
PRINT 

PRINT"DATA ENTRY BY FILE------- <23" 
PRINT 

INPUT"WHICH NUMBER "КЕ 

IF (RE>2) OR (RE<=@) ТНЕМВЕЕР:6070100 
ON RE GOSUB 1000, 2000 

P=N 

P=INT(P/2) 

IF (P=B) THEN250 

Q=N-P 

FORJ=1T08 

I=J 

ReI+P 

IF (X(1)<¢X¢(R)) ТНЕМ257 
ТізХ(1):Т72зҮ(1) 
XCI)8X (КӨЗ YCI) =Ү(К) 

X (R)ST11Y(R)9T2 

Із1-Р 

ІҒ(1>0) THEN248 

МЕХТ 

8070245 

FORI=1 TO М 

XzXCI)1XM28X/N 

YsY (I) 1 YM28Y/N 

SX=SX+X:SY=SV+y 

ХҮвХҮжХжҮ 

XX=XX+X#XEVVSVV+VHY 

NEXT 

D2zXX-SX*SX/N: XD=SQR(D2/ (М-1)) 
D3=XY-SX#SY/N 

DAzYY-SY*SY/N: YD=SQR(D4/(N-1)) 


500 M=D3/D2 


520 B=((XX#SY-SX#XY) /N) /D2 

540 C=(XY-SX#SX/N) / (N-1) 1CCxD3/80R (02%04 
) 

500 SE=SQR((YY-SY#B-M#XY) / (N-2)) 

580 EM-SE/SQR(D2) 

508 EBsEM*SOR(XX/N) 

628 FORI=1TON 

6480 YC(1) =М#Х (1) +B 

668 NEXT 

800 CLS 

805 PRINT"MEAN OF X EQUALS "s;USINGNI$;X 
M 

810 PRINT"MEAN OF Y EQUALS ";USINGNI$;Y 
М 

815 PRINT 

820 PRINT"STANDARD DEVIATION OF X IS "; 
USINSN2$;XD 

825 PRINT"STANDARD DEVIATION OF Y IS "5 
USINGN2$; YD 

830 PRINT"COVARIANCE OF X AND Y IS ";US 
INGN1$;C 

835 PRINT"CORRELATION COEFFICIENT IS "; 
USINGN2$;CC 

850 GOSUB4400 

870 PRINT" LINEAR COEFFICIENTS## 
wx" 


875 PRINT"Y INTERCEPT IS "jUSINGN1$j; Bj 1P 
RINT" error:";USINGNA$; EB 
880 PRINT" SLOPE IS 
1PRINT" error:";USINGNA$; EM 
890 PRINT"EQUATION OF LINE THROUGH POINT 
53" 

893 PRINTRV$; 

895 PRINT" Y = "jUSINGN1$; M; 1PRINT"X 
"3USINGN3$;B 

897 PRINTNM$, 

910 GO0SUB6400 

922 CLSIPRINT" 41»---LINEAR REGRESSION" 
924 PRINT" <2>---COMPARE ACTUAL TO ESTIM 
ATED VALUE"; 

926 PRINT" <3>---PLOT DATA" 

927 PRINT" <4>---REVIEW STATISTICS":PRIN 
T" «55---OUIT * 


"sUSINGN2$; М; 


TRS-80 MODEL 100 OWNERS 


Three Software Packages From QAD 


. TYPIT (Output from TEXT) 


a. Setmargins - top, bottom, left, right. 

b. Setline spaces - single, double, etc. 

c. Pagenumbering - start on any page number - include "footer." 
d. Right justify. 

e. LIMITATION: Runs slow. 


a. Solves problem of cursor ending up on right side of screen 
with certain host comupters. 

b. Upload (waits for host signal before sending each line). 

c. Download (sends signal to host when ready for next line). 

d. LIMITATION: For use with 300 baud. 

ELF (Eliminate Line Feed) 

When a word processing file is downloaded to the 100, "hard" line- 

feeds are sent by the host. ELF eliminates such line feeds so that 

the file can be used for word processing. 


SPECIAL!!! All of the above 





Send me the following program: 
TYPIT - $24.95 C] TERM - $19.95 Г| 
All 3 Programs - $39.95 [ | 





ELF - $14.95 O 


Name 

Address 
City State. 
D» 
Charge 





Payment Enclosed 
MasterCard a 
Interbank No. (MC only) 








L] Visa go 
Account No. 


Signature 


Mail to; GROWTH ASSOCIATES For тоге information 
Jane Hershberger or to order by phone 
1901 East First Street call: 
®© Newton, KS 67114 (316) 283-2400 
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929 PRINT: INPUT"WHICH NUMBER "; КЕ 

930 ONREGOSUB30Q0, 4000, 6800,980,999 

940 BEEP 

950 5070922 

999 CLS1END 

1000 CLS 

1820 INPUT"NUMBER OF DATA POINTS";N 

1040 PRINT 

1858 FORI=1TON 

1080 PRINTI;TAB(S); : INPUT"ENTER X , Y"jX 
(19,01) 

1100 NEXT 

1120 RETURN 

1150 ІҒЕКК=52ТНЕМВЕЕР: PRINTRV$3:PRINT"SO 
RRY NO SUCH FILE EXISTS IN MEMORY! !"j1PR 
INTNMS 

1151 FORIS1TO2000:NEXT: RESUME2@00 

2000 CLS 

2020 LINE INPUT"NAME OF DATA FILE IS "jF 
$ 

2030 IFFS=""THENGOTO2000 

2040 OPEN F$ FORINPUTAS! 

2050 K=O 

2060 Кек" 

2065 PRINT880, "NUMBER" :PRINT89Q, "X-VALUE 
"3PRINT8105, "Y-VALUE" 

2066 PRINT@120,K:PRINT@13@,X:PRINT@145, Y 
2080 INPUT#L,X,Y 

2100 X(K)sX:Y(K) Y 

2120 IFEOF (1) THEN2160 

2140 80702080 

2160 N=K 

2180 RETURN 

3000 CLS 

3005 RE-Q 

3010 PRINTRV$ 

3012 PRINT" LINEAR REGRESSION 


3014 PRINT"CORRELATION COEFFICIENT: "USI 
NGN2$;CC; 

3015 PRINTNM$ 

3020 PRINT" 4125---CALCULATE Y GIVEN X " 
3040 PRINT" <2>---CALCULATE X GIVEN Y " 
3050 INPUT"WHICH NUMBER "КЕ 

3065 IF(RE»2) OR(RECzQ0) ТНЕМВЕЕР: 50703000 
307) IFRE=2THENGOTO3100 

3082 INPUT"ENTER YOUR VALUE OF X "jX 
3083 Y=M#X+B 

3084 РКІМТ: РКІМТ"ЕОА X = "3X3" Y = "3Y 
3086 LINEINPUT"ANOTHER CALCULATION ? Y/N 
*jRE$ 

3090 IFRE$z"Y"THENS3Q0Q0Q 

3895 RETURN 

3100 INPUT"ENTER YOUR VALUE OF Y ";Y 
3120 Xz(Y-B) /M 

3140 PRINT:PRINT"FOR Y = "jY;" X = "3X 
3160 LINEINPUT"ANOTHER CALCULATION ? Y/N 
"SRES 

3180 ІРКЕ%-"Ү"ТНЕМ3000 

3190 RETURN 
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4008 CLS 

4020 PRINTH$ 

4050 FORI=1TON 

8070 IF(I/5-INT(I/6))28THENGOSUBS5QQQ 
4089 YzM*X(I)*B 

4180 PRINTX(I)TAB(10) Ү(І) TAB(20) USINGN1$ 
Y 

4120 NEXT 

4130 605082400 

4140 RETURN 

5010 GOSUB46400 

5030 PRINT 

5040 PRINTH$ 

5050 RETURN 

5092 CLS 

5010 ONERROR80T05300 

5020 СізҮ(1)1С2-С1 

6030 FORI=1TON 

5040 IFCi<=¥(1) THEN6Q68 

8058 Ci=Y(1) 

5060 ІҒС2>«Ү( 1) ТНЕМЫОВФ 

6070 C2=Y(1) 

5080 NEXT 

6090 LINE(110,30) -(210,30) ,1 

6108 LINE(168,5)-(168,55) ,1 

5110 PRINT@27,"Y" 

5120 PRINT@155,"X" 

8150 Yi1sCi:Y22C2 

6140 KX2188/ (X (N) -XC1)) 

6150 KYz50/(Y2-Y1) 

6168 FORI=1TON 

5178 PSET((X(1)-X(1)) *KX*110,55- (Y CD) -Y1 
)#KY) 

6180 NEXT 

6182 FORX=X(1) ТОХ (ND STEP (X(N) -X(10)/50 
6184 PSET((X-X(1)) *KX*110,55- CM&X4B) -Y1 
) КҮ) ы 

6186 NEXT 

6188 PRINT@Q,"Y-MAX"; 

6190 PRINT@7,USING"#, ##^^^^"; Y2 

8195 РКІМТ@240, "Ү-МІМ" 

6208 PRINT@247,USING"#. ##^^^^" рү 

6208 IFLEN(STR$(X(1))) »9THENPRINT8297,US 
ING"#. 8$848^^^^":X (1); 180706215 

52180 PRINT@297,X(1)3 

8215 IFLEN(STR$(X(N))) »9THENPRINT8310,US 
ING"4, 4$84^^^^" X(N) з 60700238 

5220 PRINT@316-LEN(STRS(X(N))) ,X(ND j 
5230 505082400 

6260 RETURN 

8300 ВЕЕР: КЕЗИМЕ 6188 

5400 PRINTRV$;:PRINT@28@,"<PRESS ANY KEY 
>": sFORK=1T020Q:NEXT:PRINTNM$s : ЕОКК=1Т02 
00: МЕХТ 

5450 R$zINKEY$ 

6475 PRINT@28@,"<PRESS ANY KEY>"s:FORK=1 
10200: МЕХТ 

5500 IFR$=""THENS400 

5520 CLS 

5550 RETURN PCM. 


A Timer 
For Your Chess Game 
By Larry Boulet 


some of the new BASIC features available on the PoCo 

Microsoft BASIC. The program waits until a key is 
pressed (any key) and starts timing the player on the white 
side. When any key is pressed again, the white clock stops 
and the black starts. Every key press alternates sides unless а 
total of five minutes elapses at which time the computer 
emits a series of beeps indicating the end of the game. The 
player who ran out of time is the loser. 


ДЕ short program is called Chess Timer and uses 


The listing: 


10 e HEREREROERRRORRERERRERE ER IE E ERE 
20 '* Chess Timer 

30 '* by 

40 '* Larry Boulet 

50 '*for longer times, change 
60 '*variable t3 in line 190 
70 “жапа t4 in line 3689 * 

8Ü 'ktxkktkt e b EE AR UE EEUU 

90 “кке XXXI GRE 
108 CLS:PRINTTAB(15); "Chess Timer" 


ж ж ж ж ж 


110 PRINTIPRINTTAB(13) ; "**Hit any key##" 
115 PRINT:PRINT:PRINT:PRINTTAB(11) "white 


black" 
117 LINE(52,38) -(108,40) , 1,B 
118 LINE(138,38) -(185,40) , 1,B 
120 INS$ZINKEY$:1IFIN$2""THEN120 


130 PRINT81780,T3; "1"; T21PRINT8183, T3; "1" 


135 T3z81T2201T1201TXz0i1PRINT 
137 Ti=T% 

148 TI$2MIDS(TIMES,8,1) 

145 INS=INKEY$: IFINS< >""THENGOTO31@ 
160 TASVAL(TI$) 

170 ІҒТІ-ТХТНЕМ6070140 

180 PRINT8170,T3; ":"; T2 

198 IFT3=STHENS8O 

195 T2=T2+1 

218 IFT2>S9THENT2=@: T3=T3+1 
228 6070137 

300 74:0:Т75-0;Т76-0;77-0 

310 ТөӛзТ7 

320 TI$zMID$(TIME$,8,1) 

325 INS=INKEY$: IFINS< >""THENGOTO137 
350 T7=VALI(TI$) 

348 IFT6=T7THENGOTO328 

350 PRINT6183,T4; "1", T5 

360 ІҒТ4«5ТНЕМ5Й 

378 Т5-75%1 

380 ІҒТ5259ТНЕМТ5-0:74-74%1 
398 68070510 

500 BEEP: ВЕЕР: BEEP: BEEP 

510 END 


GOLDLABEL” 
BLANK CASSETTES 


* PREMIUM 5 SCREW SHELL 
x COMPUTER DATA QUALITY »*LOW NOISE 
x MADE IN USA ж GUARANTEED 


1 DOZEN C-10 LENGTH $8.50 + $2.50 shpg. 
2 DOZEN C-10 LENGTH $16.00 + $3.50 shpg. 


1 DOZEN C-30 LENGTH $12.50 + $2.50 shpg. 
2 DOZEN C-30 LENGTH $23.50 + $3.50 shpg. 


Individual storage boxes (sold only with cassettes) $2.40 per dozen. 
CASSETTE CADDY: $3.95 + $2.00 shpg. 
2 for $7.00 + $3.00 shpg. 


Free shipping on one caddy with each dozen cassettes. 


Foreign orders include shipping at 16 oz. per dozen tapes/9 oz. per 
caddy/13 02. per dozen boxes. Shipped in U.S. by UPS. 


CASSETTE CADDY 


TIRED OF MISPLACED TAPES AND A CLUTTERED WORK AREA? TRY 
OUR HINGED TOP SMOKED PLASTIC CADDY THAT HOLDS 12 TAPES IN 
ONE HANDY LOCATION. EDGE LABELS INCLUDED TO IDENTIFY TAPES. 


Visa and Mastercard accepted (include expiration date) Orders paid by 
cashier's check, money order or bankcard are shipped within 48 hours. 
Personal check takes 1-2 wks. No COD. Some foreign sales are restricted. 
Texas residents add 5% tax. 


COLOR SOFTWARE SERVICES 
P.O. BOX 1708, DEPT. R 
GREENVILLE, TEXAS 75401 


Telephone Orders: (214) 454-3674 9-4 Monday-Saturday 


x DEALER INQUIRIES INVITED ж QUANTITY DISCOUNTS AVAILABLE 
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on the Richte 


PASTE LABEL PRINT 





Radio Shack’s New 
е.) ж TRS-80° Model 100 
Portable Computer 
eu» Is Sending Shockwaves 
Throughout the Industry 


(. 


8K TRS-80 Model 100 24K TRS-80 Model 100 
26-3801 26-3802 
Only $54 a Month Only $68 a Month 
on CitiLine Credit on CitiLine Credit 


ҚА 
3 nee nin 
^ Bona? ust Д 


Radio Shaek 


TRS-BO 








m Powerful Built-In Software 
and Extended BASIC Language 
m Self-Contained Direct-Connect 
Telephone Modem 
m 8-Line by 40-Character Display 
m Full-Size Typewriter Keyboard 
m Retains Data When Power “Off” 
m Memory Expands to 32K 


MODEL 100 
PORTABLE 
COMPUTER 





Brace yourself—Radio Shack just redefined the 
concept of personal computing. Our new TRS-80 
Model 100 is so small, it'll fit in your in-basket. 
Yet, it'S as powerful as many desktop micros. The 
built-in BASIC language is the most advanced 
ever from Microsoft®, and features full string han- 
dling, complete file operations, multi-dimension 
arrays, 14-digit double-precision accuracy, 

240 x 64 dot-addressable graphics, a five-octave 
sound generator and much more. The Model 100 
includes a parallel printer port, an RS-232C serial 
interface and a cassette port. Model 100's built-in 
direct-connect modem even allows you to access 
any computer by phone. If you're not a program- 
mer, "instant-on" software in ROM lets you use 
your Model 100 as a personal word processor, 
telephone auto-dialer, address book and appoint- 
ment calendar. Come see the most revolutionary 
computer since the TRS-80 Model I at over 6500 
Radio Shack stores and participating dealers, in- 
cluding over 400 Radio Shack Computer Centers 
nationwide. 





The biggest name in little computers? 
A DIVISION OF TANDY CORPORATION 

| Vae sdgc Se ae ae oe ee E 1 

Send me a free TRS-80 Model 100 brochure. 


Mail To: Radio Shack, Dept. 84-A-14 
300 One Tandy Center, Fort Worth, Texas 76102 


NUM 





NAME 





ADDRESS 
CITY STATE ZIP 
TELEPHONE 





Prices apply at participating Radio Shack stores and dealers. Microsoft is a 
registered trademark of Microsoft, Inc 





SHOWN ACTUAL SIZE 








Figure 1 
1 


4 


Configuration after the computer and player 
have completed their sixth moves. The compu- 
ter has just made the 6-2 connection. The ріау- 
er's turn is next. 


Figure 2 
1 
6 2 
5 3 
4 


Here the computer wins because the player 
(solid lines) had only the 1 -6 line available to 
draw, thus completing a triangle composed 
solely of the player's lines ( 1-6-4). 
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IM is a two player game (you and 

М the computer). After asking for 

your name and whether you 
would like to go first, the program will 
print six numbers in a hexagonal arrange- 
ment on the left side of the screen. You 
and the Model 100 will take turns draw- 
ing lines connecting the numbered ver- 
tices of the hexagon. Your lines will be 
solid, while the computer draws a dot- 
ted line. To drawa line, simply enter the 
two numbers that you wish to connect. 
You cannot connect two numbers that 
have already been connected by either 
you or the computer. 

The object of SIM is to avoid com- 
pletinga triangle composed of your own 
lines. Only triangles with vertices on the 
six starting points are considered. The 
final two moves of a sample game are 
shown in Figure | and Figure 2. 

The game of S/M was first published 
by Gustavus Simmons (The Journal of 


The listing: 


Recreational Mathematics, V.2, April, 
1969, p. 66). In his article, Simmons 
proved that a draw was not possible, 
and later analysis showed that there is a 
winning strategy for the second player. 
For overa year I was convinced that the 
program made the computer unbeat- 
able when the human opponent went 
first. However, while preparing this 
article, I found a strategy which would 
beat the computer when I went first. A 
challenge for the reader is to first perfect 
playing the game as the second player, 
and then find a way to beat the compu- 
ter when it moves second. 

This program uses a heuristic algo- 
rithm developed by John Nairne and A. 
B. Sperry (The Journal of Recreational 
Mathematics, V .6, Fall, 1973, pp. 243— 
247). Nairne and Sperry estimated that 
there are 109,132,115,040 possible games 
of SIM, so get started and good luck! 


18 CLS:SCREEN@,@:PRINT@17,"T-SIM":PRINT@ 
93,"BY RON PALUDAN":FORZ*1TOSQOQ:NEXT 
100 DIMTZ(4,15) ,HX (20) „СХ (200 „7 (20) , XL. 


(6) ,YL%(6) 
110 FORN=1T015:FORJ=1T04:READT%(J,N) : МЕХ 
TJ,N 

128 FORNs1TO&1READXLX (ND ,YLX (N) 1NEXT 

138 CLS 

208 LINEINPUT"YOUR NAME ? "jN$1CLS 

205 PRINT"DO YOU WANT TO GO FIRST ?" 

210 O$2INKEY$:1FQ$z2""THEN218 

228 IFQ$(O"N"ANDOSO"Y"ANDOSO "y" ANDOSC 
*n" THENBEEP:CLS:80T0205 

238 FORNs1TO20:LX (N) «Q1 H3 (М) x1 CX(N) «B1N 
EXT 

308 CLS 

301 МСз1:МНз1 

318 PRINT@3@,"1":PRINT@1Q4, "6":PRINT@116 
, 

328 PRINT$224, " 5" iPRINT8236, "S iPRINTSS1 
8,"4*j 

400 IFO$="Y"ORQ$="y"THEN7O0 

418 T=INT(RND(9) #4) +120INT(RND(B8) #6) +11 
805081000 

420 IFLX(X) S10RISJTHENA10 

430 PLeIrYsO:LX(X)*1160T0558 

440 PLzi:EXsBL1FORIS1TOSIFORJsI*1TOA 

450 GOSUB1808:IFLX(X)s1THEN540 

480 BzQiFÜRNs1TOA:HzHX (TZ (NJ) DICSCX (TX ( 
N,X)) 

478 IFH=QANDC=@THENG=6+1 

488 IFH=1ANDC#OTHENG=6+2 

490 IFH=@ANDC#1THENG=6+4 

500 IFH=1ANDC=1THENG=G+8 

510 IFH=QANDC=2THENG=6+20 

520 IFH=2ANDC=QTHENG=6+4 

530 МЕХТМ: ІЕВ<ЕХТНЕМЕХ=6:ЕЈ=7:Е1=1 

540 NEXTJ,I:d=Ed1 «ЕІ: 605081000 

550 REM PLOT COMPUTER'S MOVE 

555 IFXL%(1) =XL%(J) THEN6O@ 

550 BsYLZ(DIMS(YLXGD -YLZ (202 / OLZ (I) -X 
19029) 

570 Ks3:IFXLX (I) УХЕ (2) ТНЕМКа-3 

580 FORZsXLX(I)TOXLX(J)STEPK 

590 YsM*(Z-XLX(I)) *BIPSET (Z, Y) sNEXTZ2180T 
0580 


808 K=3:IFYL%(1) >YL%(J) THENK=-3 

818 FORZ=YL4(1) TOYLX(J)STEPKiPSET (YLX (I) 
,1) :МЕХТІ 

588 FORNs1TOA:1CZ(TX(N,J)DSCX (TX UN X) +1: 
IFCX (TX (N,X) ) «3ТНЕМ2000 

590 NEXTNILZ() 1 

700 PRINT@Q,"FIRST POINT 7%; 

705 QS=INKEY$: I=VAL (0%) 1 IFO$z" "ORICIORIO 
&THEN785 

710 PRINTI:PRINT848, "SECOND POINT ?"; 
715 ҒОКТ=170200: МЕХТ 

720 WS=INKEY$:J=VAL (WS) : IFW$z" "ORJ<BORI> 
bORJsITHEN720 

738 РКІМТЈ: 608081000: IFLZ (X) =@THENSBO@ 
748 PRINT8,SPACES (20) :PRINT@4@, SPACES (2 
0) 

758 ВЕЕР: 8070708 

800 REM PLOT HUMAN'S MOVE 

810 LINE(OLZ(D ,YLZ OD) -OCX (QD ,YLZ (D) 
900 FORNe1TOA41HX (TX (NX) «HX CT CN X) ) +1 
918 IFHX(TX(N,X)) 53THEN3000 

920 МЕХТ:12(Х)-1 

950 PRINT@G, SPACES (20) : РКІМТӘ40 ,ЅРАСЕ$ (2 


990 8070440 
1000 IFI>JTHENK=J:J=111=K 

1010 X=15:FORZ=5TOISTEP-13X=X-(5-Z) sNEXT 
3 Х=Х- (6-7) 3 RETURN 

2000 N$z"COMPUTER" 

3000 PRINT@160,N$" LOSES!” 

4000 PRINT@24Q,"PLAY AGAIN ?" 

4010 Q$2INKEYS1:1FQ$2""THENAQ10 

4020 IFQ$="Y"ORQ$="y"THENI3@ 

5000 DATA1,2,3,4,1,5,6,7,2,5,8,9 

5010 DATA3,6,8,10,4,7,9,10,1,11,12,13 
5020 DATA2,11,14,15,3,12,14,15,4,13,15,1 


5050 DATA5,11,17,18,6,12,17,19,7,13,18,1 
5040 DATA8,14,17,20,9,15,18,20,10,15,19, 


5000 DATA183,9,213,20,213,44,183,55,158, 
44,150,20 
PCM 


8K MEMORY MODULES FOR THE 
TRS-80 MODEL 100 PORTABLE COMPUTER 


$85 each, 2 or more $80 each 
Exact Replacements for RS Memory 
Easy To Install e Warranty Included 
VISA and MC Accepted * CA Residents Add 6.5% Sales Tax 


IOTA SYSTEMS • 1690 Day Valley Road * Aptos, CA 95003 • (408) 684-0482 
Prices Subject To Change Without Notice е TRS-80 is a trademark of Tandy Corporation 
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All work and no play makes Jack a dull boy... 


NOW YOU CAN HAVE 


FUN WITH YOUR ЕМ 
24K MODEL 100 с 


4 games for your enjoyment: 


BLOCKADE — Your ‘snake’ grows longer as 
you hit the randomly appearing targets on the 
screen — as long as you don't run into yourself, 
a wall, or your opponent! A one or two player 
real-time game with optional sound and three 
speeds of play. 


REVERSI — A ‘board’ game in which you try to outflank your 
opponent to end up with the most squares at game's end. Play against 
the computer or another human. 


FRANKENSTEIN ADVENTURE — Find all of the necessary 
equipment to awaken the monster. The clues are hidden and the pitfalls 
are many! 


ALEXIS ADVENTURE — Sail the seas and traverse the islands to 
recapture your kingdom. Chart your course or you may sail on forever! 


— a lot of software for a little silver 


CERTIFICATION 
SEAL 


All four games on tape for only $24.95 SilverWare POBox 21101 
Calif. residents add 696 tax, overseas add $1.00 shipping Santa Barbara, CA 93121 


Mastercard & Visa Dealer inquiries invited (805) 966-1449 








Among 


Printer 


Utilities LLST Is 
Without Parallel 


By Dale Wheeler 


A utility to use an M X-80 equipped with serial interface and 





it became necessary to produce 

listings, of BASIC programs that 
were being developed. The only prob- 
lem was that my MX-80 printer is 
equipped with a serial interface for use 
with: my Color Computer. With the 
interface in place, the parallel input to 
the printer cannot be used. 

Several options were available to 
solve this problem. The first was to buy 
another printer for use with the Porta- 
ble. A flat pocketbook and harsh frowns 
from the spouse seemed to eliminate 
this fix! 

A new interface that can be switched 
between the serial and parallel inputs 
was deleted from the list for the same 
reason. 

Unplugging the serial interface when 
using the printer with the Model 100 
seemed impractical and downright bother- 
some. 

The quickest and cheapest answer to 
the problem turned out to be the utility 
program listed below. 


S hortly after purchasing my M100 


The listing: 


Getting Ready 

Before the program can be used, a 
printer cable will have to be purchased 
or made up to connect the RS-232 con- 
nector on the Model 100 to the MX-80 
serial interface. Only two of the 25 con- 
ductors are necessary. Pin 7 of the com- 
puter connector is tied to pin 7 of the 
printer connector. This provides a SIG- 
NAL GROUND path for the two ma- 
chines. Next, pin 2 on the computer 
connector(Transmit Data) is tied to pin 
3 on the printer (Receive Data). This is 
the data path. 

Experimenting has shown no way to 
use any of the other pins to provide a 
PRINTER READY signal for use in 
controlling the output of the computer. 
If anyone can provide this information 
please do so by writing me through 
PCM. 

After LLST has been keyed in, you 
тау want to customize it to your par- 
ticular printer by changing the OPEN*- 
COM: command in line 30. Refer to the 
M100 manual, page 165, for informa- 


tion on the correct syntax. The program 
is set up for use with 8 bit words and a 
Baud rate of 2400. 

The program to be listed must be 
saved to RAM in ASCII format with 
the SAVE“name”,A command. 


Running the Program 

Now run the LLST program and re- 
spond to the “File Name?” prompt with 
the name of the program saved earlier in 
ASCII. Your program will be listed in 
standard format. No fancy line breaks 
or page breaks are provided, 

Since the printer cannot tell the com- 
puter when it is or isnot ready to receive 
data, a delay loop is provided in the 
program. The length of the delay was 
arrived at by trial and error and al- 
though it sometimes seems too long, ex- 
perience has shown otherwise. Onslower 
printers, of course, a longer delay will be 
necessary. 

The program can be used to print 
most files with a .DO suffix, but the 
program may crash when printing files 
created by the TEXT program. 


42 IFLEN(A$) (TB8THENXX2LEN(AS)ELSEXX278 


1 LLST 

5 CLEARI@00 

10 MAXFILES=2 

12 F1$2""1CL81PRINTIFILES: INPUT"File nam 
e";Fis: IFLEN(F1$) »60RF1$2""THENBEEP:G80TQ 
12 

14 F1$z"RAM:"*F1$*",DO" 

20 CLOSEW1:0PENF1$FO0R INPUT AS 1 

30 OPEN"COM:68E2E"FOR OUTPUT AS 2 

40 IFEOF(1)THENBEEP1:1G0TO&6PELSELINEINPUTS 
1,A$ 


44 BS=LEFTS$( A$, ХХ) 38$2RIGHT$ (A$,LEN(AS$) - 
XX) 

48 PRINTBS$1PRINT42,B$CHR$(13); 

50 FOR Х=1 TO 1580: МЕХТХ: IFLEN(A$) >0ТНЕМ 
42bELSE40 

68 CLOSE: PRINT: INPUT"Press <0> to quit o 
ғ <ENTER> to list another prograa";QU 
IT$ 

70 IF GUIT$z"Q"ORGUIT$z"q"THENEND 
80 RUN 
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FOUND! The M100s 
Hidden Cursor Control Keys 
/ 


By Frank Hogg (е 






















i 3 a RN sing the Model 100's cursor con- 
Ue dn U trol keys has always been a pain. 
I rarely remember which key is 

which without looking at them and I 
often hit the wrong one. Wouldn't it be 
nice if it had cursor keys that were logi- 
cally placed so that I wouldn't have to 
fumble? Well maybe you, like me, didn't 
know it, but the M100 has that built in! 
That's right, they are built in, and Radio 
Shack even told you about them. Look 
on page 59 of your manual for refer- 
ence. Under the heading “Using Control 
Codes and Other Special Key Combina- 
tions" will give you all the information 
ina way that almost guarantees that you 





Keyboard Layout will not realize its importance. 

Refer to the keyboard layout below 
е Ж t P t print prntr for a much better idea of how this 
line file char line disp cut tab copy codes works. If you are familiar with Word- 


star or DynaStar text processors you 

Q UV E R "D Y Гг $ O P L will recognize the layout. The beauty of 
this over using the cursor keys is that 

you can do the cursor movement with 

< <. > > only опе hand. Use your pinky for the 
word char char word save bksp select control key and hit the appropriate key 
RO with your index finger. Using the cursor 

A S D F е Н J K L у keys is very slow in comparison and 
requires two hands, one for the control 

ү v cancl V key and one for the cursor key. Also, the 


i -— cursor keys are not laid out in a logical 
file char loaddsplay way and are difficult to remember. 


2 x С М B N M Ж Looking at the layout below you will 

NE. notice a pattern with the “ESDX” keys. 
These keys do the same thing that the 
cursor keys do with the exception that 
they make much more sense. E is up, X 
is down, S is left and D is right. The A 
апа F keys do the same as using SHIFT 





(Frank Hogg is the president of and the right and left cursor keys, A is 
Frank Hogg Laboratory, one of left word and F is right word. Study the 
the world's largest suppliers of pattern and you will see the logic of this 
software for 6809 based compu- layout. Without this layout below, I was 
ters. He and his wife Linda live in able to use these keys after only a few 
Syracuse, New York.) minutes. That may be because I use 
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DynaStar on the Color Computer so 
often and most of the keys are the same. 
When I found this out I was much more 
impressed with the 100 than before. I 
never did think that the cursor keys 
were very well laid out, but with this 
ability, I now never use the cursor keys 
in the editor. 

You can use the CTRL keys in the 
М100% BASIC editor but the A and F 
keys will have a tough time determining 
just what constitutes the beginning of 
the next word. In the line 


10 B-INT(27* A) 


the editor will think that B is one word 
and 27 is the next. It doesn't think that 
INT is a separate word. This probably 
has something to do with the special 
characters used in BASIC programs and 
should give you no problem. I just don't 
use A and F while in BASIC. 

CTRL P is a new one and is only 
mentioned on page 60 after all the other 
stuff, at least as far as I know, because I 
haven't read the manual all the way 
through yet. (Who ever does!) CTRL P 
allows the embedding of printer control 
codes in your text. Because І always 
upload my files to our big GIMIX OS9 
system for final processing, I have never 





or office each month! 


9529 U.S. Highway 42 
P.O. Box 209 
Prospect, KY 40059 


Name 

Address 

City 

O Payment Enclosed 
Charge 0 VISA 
Account Number 
Signature 


first copy. 


YES! Sign me up for a year (12 issues) of Portable Computing 


о MasterCard 


Subscriptions to Portable Computing are $28 a year in the United States. | 
Canadian and Mexican rate is U.S. $35. Surface rate elsewhere U.S. $64. Air mail 
U.S. $85. All subscriptions begin with the current issue. Please allow 5-6 weeks for 


used these codes, but if you are using a 
printer hooked to your 100 I am sure 
that these will be of use to you. 

Just as a point of interest, I thought 
you might like to know what I use my 
M100 for. As some of you may know, 1 
have a software company for the TRS- 
80 Color Computer. We do not have 
anything for the 100, so why, you may 
ask, do I have one? Good question, and, 
as my wife would say, “Because I didn't 
already have one." Oh well, some peo- 
ple just don't understand the necessities 
of life, I guess. 

I didn't use my Model 100 very much 
for the first few months I had it because 
I have computers at home and at work 
and I am never far away from one when 
the need arises, at least until now, that 
is. Right now, it is the middle of July 
and we are spending most of our time at 
a camp 30 miles outside of town. Last 
year I hauled a Color Computer with 
disk drives and a printer and all the 
wires and cables, etc., down here and it 
was a hassle for two reasons; first, 
because this is supposed to be camp and 
not work, and second because of all the 
stuff I had to carry. This year I decided 
to leave the CoCo home and not bring 
any computer down here. That lasted 


Your Perfect Portable Companion 


Now, here's your opportunity to have PCM — The Portable Computing Magazine delivered to your home 


PCM will bring you the finest and most up-to-date information available anywhere for your TRS-80 
Model 100 Portable Computer. Whether your interest is programming, using the Portable Computer's 
fabulous built-in functions or communicating with other Portable owners, PCM 

Each month we'll bring you a host of articles, ready-to-run programs for business and professional use or 
just plain fun. And each article will be in an easy-to-read style...not computerese. 

Subscribe to PCM today! A dozen issues are only $28 ($35 in Canada and Mexico). 


ОАА ыы ыны ыы ыы ыны ыы 


PCM — Тһе Portable Computing Magazine 


State 


o American Express 


Interbank # (MC only) 


Card Expiration Date 


| . VISA | 


until I packed the car and, what do you 
know, I forgot to leave the M100 home. 
Good thing, too, as the peace and quiet 
has given me the time to catch up on 
most of my writing. After I get into 
work I hook up the M100 up to the 
RS-232 port of our multi-user GIMIX 
OS9 system and using TELCOM and 
TERM | can then log on the system as a 
terminal. It is then a simple matter to 
upload the files the the GIMIX and with 
DynaStar, | do the final word process- 
ing and the spelling checking with Dyna- 
Spell (because І can't spell very well). 
Then it's just a simple matter to print it 
out and away I go. 

I did find that 8K was not enough, so 
I bought an 8K chip from Computer 
Plus and installed it myself in about five 
minutes. This gives me about six or 
seven pages of text storage which is 
about all I want to write while down at 
camp. When the chips come down in 
price sometime this fall I will buy the 
other 16K. But at the cost of them now, 
I am going to wait until I really need 
them before I buy them. 

All in all, I really like the Model 100 
and am glad I bought it. My wife, how- 
ever, just gives me a funny look when- 
ever I mention it. PCM 











is for you. 


(502) 228-4492 
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(Robert Frowenfeld owns his own 
computer programming firm in 
Louisville, Ky., and has com- 
pleted his graduate coursework in 
Computer Science at the Univer- 
sity of Louisville.) 
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By Robert Frowenfeld 
PCM Contributing Editor 


n our first edition of On The Road we looked at a loan 

amortization program which can be very useful when 

the need arises to borrow or loan money. As you know, 
there are many other types of financial computations that, 
when used properly, become extremely valuable tools in 
conducting day-to-day financial affairs. Today we are 
going to look at a variety of economic analyses that can 
turn your Portable Computer into a powerful financial 
decision maker. If you’ve ever seen one of those calculators 
which has special buttons for such computations as com- 
pound interest, present worth, etc., you will be happy to 
know that the program presented here will perform these, 
as well as more complex, calculations. 

I've named this program ECANL whichis my contrac- 
tion for the term EConomic ANaLlyzer. ECANL was 
designed to perform the following types of economic eva- 
luations (see main menu listing): 

1) Compound Amount 

2) Series Compound Amount 
3) Sinking Fund 

4) Capital Recovery 

5) Present Worth 

6) Series Present Worth 

7) Gradient Present Worth 
8) Gradient Uniform Series 


The following table shows the formu- 
las required to perform each computa- 
tion: 


1) Compound Amount: 
F = PO + i} 
2) Series Compound Amount: 


m SEN =| 
L 


3) Sinking Fund: 


Рр. EES ле 
(1+ 2)" – 1 
4) Capital Recovery: 
РУЗ E ЧР 
e -»D-1 


5) Present Worth: 
Р = FU +97" 





6) Series Present Worth: 
З 2 
р a| il iy | 


7) Gradient Present Worth: 


T9 Pe i- 1 "|| 1 | | 
i i (1 + i)" 
8) Gradient Uniform Series: 


| | n 
“= Е а + 1 


Where: 
i = interest rate per interest period. In 
the equations above, the interest rate is 
stated as a decimal (that is, 8 percent 
interest is 0.08). 
n = number of interest periods. 
P=a present sum of money. 
F =a future sum of money. The future 
sum F is an amount, n interest periods 
from the present, that is equivalent to P 
with interest rate i. 
A = an end-of-period cash receipt or 
disbursement in a uniform series, con- 
tinuing for n periods, the entire series 
equivalent to P or F at interest rate i. 
G=a uniform arithmetic gradient repre- 
senting a period-by-period increase in 
payments or disbursements. 

You will notice that each of the above 


formulas uses the exponential expres- 
sion (1+ 1)". This is used to compute the 
compounding effect of interest from 
one period to the next. The table below 
illustrates the compounding effect of 10 
percent interest paid annually over the 
course of five years on an initial princi- 
pal amount of $1,000. 


Year Interest Amount 
1 100.00 1,100.00 
2 110.00 1,210.00 
3 121.00 1,331.00 
4 133.10 1,464,10 
5 146.41 1,610.51 


We'll now go into a little more detail 
to show how and when to use each of the 
eight economic analyses. Let's start off 
with the simplest one, Compound 
Amount. As shown in the five year table 
above, this is the formula to use when 
you want to compute the future value of 
a sum of money compounded at a cer- 
tain rate of interest. As an example, say 
you have a savings account that claims 
to pay 8 percent interest, compounded 
daily. The periodic interest rate would 
be 0.08 / 365 (days in a year) = .000219178 
percent per day. Let’s say that at the 
beginning of the year you had $3,212.78 
in this account. Using the Compound 
Amount formula with: present value P 
= 3212.78, interest rate i — .000219178, 
and number of periods n — 365, the 
program will return a value of $3,480.33, 
the value of the savings account at the 
end of the year (see Figure 1). A word of 
caution is issued here. Not all banks 
figure interest the exact same way. Some 
use interest rates based on years that 
have /ess than 365 days—this acts in 
your favor. Other banks may quote 
average or historic rates which actually 
vary daily. Furthermore, your Model 
100 works in double precision (unless 
told to do otherwise) which results in 14 
significant digits. Believe it or not, there 
are many bank computers and interest 
tables that banks use to figure interest 
that are not as accurate. So beware, 
your Model 100 can be more accurate 
than your bank. But be sure you know 
how your bank is figuring your interest 
before you accuse them of short-chang- 
ing you. Believe me—I’ve done it— 
they'll listen to you, and change things if 
you're right; just Бе sure you know what 
you're doing. 

Now for the next analysis, Series 
Compounding Amount. The best exam- 
ple I can think of to illustrate this for- 
mula is the famous bank Xmas Club 
Account. Say for example, you pay 
$100 a month into such an account and 
the bank claims it is paying 6 percent 
annually, compounded monthly. In this 


case, you would use an end-of-period 
payment A of 100, 12 periods n and an 
interest rate i of .06/12 — 0.005; plug- 
ging this into your Model 100 should 
yield (see Figure 2) an amount at the end 
of the year of $1,233.56. 

Our next example is the Sinking 
Fund. Here's where you get to use your 
imagination a little bit to play with the 
real power offered by your Model 100. 
Say you have an ambitious dream (don't 
we all): you want to buy a house, and 
you figure that in order to make the 
down payment five years from now, you 
would like to have $25,000. You also 
figure that your money will be able to 
earn for you 8 percent per year (after 
taxes). Using the sinking fund analysis 
(#3), just enter 25000 for the future 
amount F, .08 for the interest rate i, and 
5 for the number of periods n; your 
Model 100 will instantly respond with a 
figure of $4,261.41 (see Figure 3); this is 
amount you would have to save annu- 
ally over the five years (at 8 percent 
interest) to have $25,000. 

The Capital Recovery formula is used 
to determine the actual periodic cost of 
something over a given period of time. 
Say, for example, you are given the 
option to rent office furniture for $250 
per month, or you buy it now for 
$10,000 knowing in the latter case that 
the furniture will only last five years, 
after which you would have to replace 


"The Present Worth" 
formula is a simple, yet 
useful, tool. Given an 
amount of money some- 
time in the future, this 
formula lets you know the 
true value of the present 


time. 
SSS A TS й 
it. Assume that the $250/ month rental 
contract is also for a five-year period 
and that interest rates during this time 
are expected to average 12 percent, 
compounded monthly; should you buy 
or rent? Aha, enter the capital recovery 
formula. You know what your monthly 
cost will be if you rent the furniture— 
$250; but what will it rea//y cost, includ- 
ing the lost interest, if you plop down 
$10,000 now? In this example we are 
assuming that the furniture—after five 
years—will have no value (if you buy it), 
and that the rental company will not 
offer you a nice deal to purchase five- 
year-old furniture from them at a dis- 
count. Using $10,000 for the present 
value P, 60 (five years times 12 months/ 
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year) for the number of periods n and 
.12/12 = .01 for the interest rate i, the 
formula yields a figure of $222.44 per 
month (see Figure 4). This would indi- 
cate that purchasing the furniture now 
(assuming interest rates stay constant) 
would be the smarter buy. 

The Present Worth formula is a sim- 
ple, yet useful, tool. Given an amount of 
money sometime in the future, this for- 
mula lets you know the true value of the 
present time. Say you wanted to have 
$2,000 in a savings account at the end of 
four years and 7.5 percent interest was 
paid annually, how much should you 
put into the savings account now to 
have the $2,000 four years from now? 
To compute this, use a future value F of 
2000, number of periods n of 4, and an 
interest rate i of .075; this will yield a 
value of $1,497.60 (see Figure 5). 

As an example of Series Present 
Worth, let's say you want to buy the 
love-of-your-life a diamond ring, and 
you can't decide whether to pay $1,500 
now, or $100 a month for 20 months, 
knowing that if you pay monthly you 
can put the rest ofthe money in the bank 
at 12 percent interest compounded 
monthly. Here, the period payment A is 


Q 
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Chattanooga Choo Choo Software 


Your One Stop Station 
(2 For Computer Programs 


” Тгаск 29 


Prickly-Pear Software 10% OFF 
Viking - (24K) simulation game 
cassette $19.95 
Bowling League Secretary (24K) 
cassette $34.95 
Football - Armchair Quarterback Strategy 

cassette $19.95 


100, the number of periods n is 20, and 
the periodic interest rate i 1s .12/12 — 
.01; using these figures, the present 
value of the money is $1,804.56 (see 
Figure 6). In this case, you would be 
much better off paying the $1,500 today 
as its value is less than the present value 
of the 20 monthly payments. If, on the 
other hand, you were offered the chance 
to make 24 payments of $70 each, you 
would be better off making the monthly 
payments since the present worth of 
those payments would be only $1,487.04! 

The remaining two formulas, Gra- 
dient Present Worth and Gradient Uni- 
form Series are economic analyses used 
to evaluate situations where the perio- 
dic cash flow A is a steadily changing, 
rather than constant, amount. As an 
example of Gradient Present Worth, 
assume that you have just purchased a 
new car and you estimate that the 
annual maintenance on the car will fol- 
low the schedule below: 

Year Maintenance Cost 

$150 
225 
300 
375 
450 
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(24K) 


"PortaStat 


Other Porta series programs 
being released soon at 


RECREATION 
Silverware - 4 games on cassette € 
Blockade Frankenstein Adventure ortaFolio 
Reversi Alexis Adventure 
(24K) $24.95 


Personal checks welcome. 

Please add $2.00 for shipping. 
Tennessee residents add 6.25% sales tax. 
C.O.D. orders add $2.00. 

Send for free complete catalog and descriptiuns! 


(615) 875-8656 © Р.О.Вох15892 @ Chattanooga, TN 37415 


ЕНЕ 


BUSINESS 
Skyline Software 


with 15 column by 26 row workspace! 
Full use of built in function keys. 


"РопаМах - 
(24K) $44.95 ea. 


*interactive with PortaCalc data files 


Portable Computer Support Group 
Business Pak+ includes: 
Expns+, Telex+, Put+, Sort+ 
& a 120-page manual 
6 cassettes (8K) $119.95 


Being alert, cunning, sly, swift and per- 
ceptive, you want to prepare for the 
future by placing a sum of money in the 
bank now which, with annual interest 
compounding at 7 percent per year, will 
pay for the first five years’ maintenance. 
The cash flow in the table above can be 
broken down into two components, a 
fixed $150 each year, plus a uniformly 
increasing amount of $75 per year. This 
concept is illustrated below: 


Year Fixed Cost Increasing Cost 


1 8150 5 

2 150 75 
3 150 150 
4 150 225 
5 150 300 


Using the Series Present Worth analysis 
already described, we can compute the 
amount needed to be (A=150, n=5, 
i=.07) which yields $615.03. For the 
increasing cost portion, we need to use 
the Gradient Present Worth formula 
with G=75, n=5, i=.07; this gives a value 
of $573.50 (see Figure 7). This means 
you would have to put away $1,188.53 
today to be able to withdraw the neces- 
sary funds over the next five years to 
pay for your maintenance. 
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Electronic spreadsheet 


cassette $69.95 


- Statistical package 
linear programming 


НГЕҒА 


$44.95 ea. 


Write+, Graph+, 


ELS us 
VISA 


аа а меш; — — 
nt ja 





The Gradient Uniform Series is used 
to determine the annual (or periodic) 
cost (or benefit) of an item which has a 
cost (or savings) that decreases uni- 
formly over time. The following exam- 
ple illustrates this concept. You are con- 
fronted with the following situation: 
you need to install additional insulation 
in your house to reduce energy con- 
sumption and you figure that no matter 
what kind of material you use, it will last 
ten years. You can purchase insulating 
material X or insulating material Y, and 
each will cost the same to purchase. 
Material X will result in energy savings 
of $420 per year. Material Y is strange; 
it will save you $400 the first year, but 
each year it will reduce the savings by 
$40. Which should you choose, taking 


Select Economic Analysis: 


1-Compound Amount 


3-Sinking Fund 


Figure 1 


Present Value: 3212.78 
Interest Rate: .000219178 
Number of Periods: 365 
Future Value = $3,488.33 


Figure 2 


Periodic Payment / Receipt: 100.00 


Interest Rate: .005 
Number of Periods: 12 
Future Value = $1,233.56 


Figure 3 SINKING FUND 
Future Value: 25000,00 
Interest Rate: .08 

Number of Periods: 5 
Periodic Amount = $4,261.41 


Figure 4 CAPITAL RECOVERY 
Present Value: 10000.00 
Interest Rate: .01 


Number of Periods: 60 

Periodic Amount = $ 222.44 
Figure 5 PRESENT WORTH 
Future Value: 2000.90 
Interest Rate: .@75 


Number of Periods: 4 
Present Value = $1,497.68 


S-Present Worth 
2-Series Cmpd. Amt. 6-Series Pres. Worth 
7-Grad Present Worth 


4-Capital Recovery В-бғай Unif. Series 


COMPOUND AMOUNT 


into account that interest rates are ex- 
pected to be 12 percent over the next ten 


“Depending on your 
needs, you will probably 
find several (if not all) of 
the above economic ana- 
lyses useful in planning 
both your day-to-day 
money matters as well as 
your financial future.” 





years? Well, material X will save you 
$240 per year, that’s obvious. To deter- 


Figure 6 


Figure 7 


mine the annualized savings from mate- 
rial Y, we use the Gradient Uniform 
Series where the gradient G is 40, n=10, 
and i=.12; this gives $143.39 (see Figure 
8) and represents the reduced savings 
year after year. Therefore, the annual- 
ized benefits of material Y are $400- 
143.39 = $256.61, which is less than the 
$240 that will be saved using material X, 
so you would choose to use material Y. 

Depending on your needs, you will 
probably find several (if not all) of the 
above economic analyses useful in plan- 
ning both your day-to-day money mat- 
ters as well as your financial future. In 
this ever-changing world of interest rates 
and banking regulations, these formu- 
las should help in deciding how to make 
the most of your money. 


SERIES PRESENT WORTH 


Periodic Payment / Receipt: 180.00 
Interest Rate: 
Number of Periods: 20 

Present Value = $1,804.56 


.01 


GRADIENT PRESENT WORTH 


Uniform Arithmetic Gradient: 75 


Interest Rate: 


- 87 


Number of Periods: 5 
Present Value = $ 573.58 


SERIES COMPOUND AMOUNT 


Figure 8 


GRADIENT UNIFORM SERIES 


Uniform Arithmetic Gradient: 40 


Interest Rate! 


.12 


Number of Periods: 18 
Uniform Arithmetic Gradient = $143.39 


The listing: 


10 CLEAR 100: ПЕҒІМТ I-N 

25 DATA"Compound Amount","Series Capd. А 
mt.","Sinking Fund","Capital Recovery"," 
Present Worth","Series Pres. Worth","Gra 
d Present Worth","Grad Unif. Series" 

35 FOR 1=1 TO 8:1READ А%(1):МЕХТ I:80TO 3 
9 


37 PRINT8285,"Press any key to continue 


"srAS=INPUTS(1) 


39 CLS:PRINT@8,"Select Economic Analysis 


40 FOR Із1 TO 8sPRINT@40+4Q#1+140%(1>4), 


USING"#"3 I; 


:PRINT"-"5;A$(I) 3 МЕХТ I 


45 PRINT@291,"Press "CHR$(27)"p ESC "CHR 


September 1983 PCM 27 














” МОВЕЛО- 
CASSETTES 
DISKETTES 


e LOWER PRICES 
J e LONGER LENGTHS 


DATA TRAC C-06, C-12, C-24 


From the leading supplier of Computer |CASSETTE 
Grade Cassettes, new, longer length C-12's ED put 
(6 minutes per side) provide the extra few 
feet needed for some 16K programs. 


c» Premium 5-screw shell with leader 
— BASF tape 


< Internationally acclaimed. 
Thousands of repeat users. 


Error Free е Money back Guarantee 


cu 500 C-12's 382 each] TRACTOR FEED 
ippi • ОІЕЇСОТ BLANK 
set Shipping $11,00/809 CASSETTE LABELS 
w/labels.add 44  w/boxes add 134 


TN BASF Qualimetric Flexi-Disc—Lifetime Warranty. |- о 
5%” Single Side. Double Density, Soft-Sectored. ? 


д 
NEW! MICRO CASSETTES in convenient short lengths. 
Әй) МС-10 | Same superior tape in premium shell 
qe МС-20 | WITH LEADERS. Supplied complete with 
io MC-30 | box (fits Epson & Sharp micro drives) 


Сай: 213/710-1430 '9 IMMEDIATE SHIPMENT 


ORDER [MAIL TO: YORK IO" Computerware 
МОМ... 24573 Kittridge St.,4P3,Canoga Park, CA 91307 


g = æ æ æ æ m ORDER FORM m өш em um кә m um нə 


1 DOZEN 2 DOZEN м 





Holds 12 ` 


cassettes w/o boxes 
Includes edge labels 








Each std. cassette 
ineludes two YORK 10 
labels only. Boxes are 
sold separately. We ф 
prefer to ship by UPS 

as being the fastest and 
Safest. If you need ship- 
ment by Parcel Post. à 





ge Caddy @ $2 95 ea. Qty 


















































a 
І Flexi-Disc [Q 26.95/10 check here Г) ii 
i У DO NOTE: Additional 
MC-10 0 16.50 charges outside 48 [А 
L] MC-20 О 18.00 Continental States 
MC-30 C] 19.00 Shipments to AK, HI, 
i and USA possessions 
go by Priority Mail; 
| Canada & Mexico— 
Airmail; 
i Outside 48 Continental States— Additional $1 per All others— Sea Mail i 
ddy; per doz. cassettes or boxes; per 1 " 
1 = #P3 
| сое Credi Card: O VISA С) MASTERCARD | 
ПІ PLEASE SEND QUANTITY DISCOUNTS 1 
" Card No. = Exp. 4 
| Мате I 
i Address = i 
I City State/Zip = E 
Signature Phone | 
| Computer make & model Disk? (y/n) — 4 
B ma mm um mm аш өн um өн өн ан өн кн ан өн шн шн шн 


28 PCM September 1983 


$(27)"q to end"; 

50 PRINT633,"";10$zINPUTS$(I) 11F A$a"" TH 

ЕМ 58 ELSE IF ASC(A$)=27 THEN MENU ELSE 

CsVAL(AS)11F С<1 OR С>8 THEN 50 ELSE 90 

$2 PRINT@80, "Present Value: "j:LINEINPUT 

A$:PsSVAL(AS)1IF P<=0 THEN 52 ELSE 70 

53 PRINT@8@,"Future Value: "j:LINEINPUT 

A$:FsVAL(AS):IF F¢=@ THEN 53 ELSE 78 

54 PRINT@8@,"Periodic Payment / Receipt: 
"saLINEINPUT A$:A=VAL(A$):IF A<=@ THEN 

54 ELSE 78 

55 PRINTé88,"Uniform Arithmetic Gradient 
: "ssLINEINPUT A$:G=VAL(A$):IF G<=@ THEN 
55 ELSE 70 

62 X=P:GOSUB 80:PRINT8200,"Present Value 
= "SUSING F$;P:60TO 37 

63 X=F:GOSUB 8@:PRINT@200,"Future Value 

= " USING F$;F:60T0 37 

64 X2#A:GOSUB 80: РАІМТЕ200, "Periodic Amou 

nt = ";USING F$;A:GOTO 37 

65 X#A:GOSUB 8O:PRINT@200,"Uniform Arith 

metic Gradient = ";USING Ғ$; А: В0Т0 37 

78 PRINT8128,"Interest Rate: "j:iLINEINPU 

T A$1XsVAL(AS) IF Х<=0 OR X540 THEN 78 

71 PRINT@168,"Number of Periods: "ІШІМЕ 
INPUT AS$:NsVAL(AS):1IF NC1 OR М>2488 THEN 


72 RETURN 

80 NsLOG(X)/LOG(10)*1 

Bi IF X>1E6 THEN NxN*1 

82 Ра" $" «STRINGS (N,"8") +", #8": RETURN 
90 CLS:0N C GOTO 100,400,300,500,200,600 
,800,700 

100 PRINT@12, "COMPOUND AMOUNT" 

110 GOSUB 52 

120 F=P#(1+X)^N:GOTO 63 

200 PRINT@13, "PRESENT WORTH" 

210 GOSUB 53 

220 PaFe(1+X)*(-N):GOTO 62 

300 PRINT@14,"SINKING FUND" 

310 GOSUB 53 

320 ASFH(X/((14X)°N-1))2G60T0 64 

400 PRINT@9,"SERIES COMPOUND AMOUNT" 
410 GOSUB 54 

420 FsA*(((14Y)^N-1)/3) 18070. 63 

500 PRINT@12,"CAPITAL RECOVERY" 

510 GOSUB 52 

520 А=Рж (Хаж (1+) ^М№/ CCLSX) ^N-1)) 160T0. 64 
&00 PRINT@1@,"SERIES PRESENT WORTH" 

61@ GOSUB 54 

628 P=A#{(11+X)^N-1)/(X*+(1+X)^N)):GOTO à 
2 

700 PRINT@8, "GRADIENT UNIFORM SERIES" 
718 GOSUB 55 

728 Ааб%(1/Х-(М/((1%Х078-1))216070 65 
800 PRINT@9,"GRADIENT PRESENT WORTH" 

810 GOSUB 55 

828 P:8/X*(((15X)^N-10 /Y-ND*(1/ (140 OND 1 
GOTO 52 

900 P=IR#4Q+IC: RETURN РСМ 
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BUSINESSPAK+ 
Totally Professional 
Package 


Last month we reviewed three excel- 
lent programs for the Model 100 from 
the Portable Computer Support Group. 
Six programs comprise a truly “profes- 
sional” package for business-oriented 
users called BUSINESSPAK-+. The first 
three programs were WRITE+, a print 
formatter, PUT, a mini-database and 
SORT, a quick sorting routine. This 
month we will take a look at EX PNS+, 
GRAPH+ and TELEX+. 


EXPNS+ 

As the name implies, EX PNS+ is a 
miniature version of Visi-Calc tailored 
for expense reports and small budgets. 
The limits of this spreadsheet are 18 
rows and 12 columns. Amounts up to 


$99,999.00 are accepted. Even H. L. 
Hunt can use this one. At the same time 
it is suggested if this figure is too small 
dropping three zeros would put you in 
the standard business reporting format. 
Five digits was more than adequate for 
my last five-day trip to Mehoppany, Pa. 

Two canned “shells” are provided for 
expenses and budgets. The user has full 
editing capability to name the rows and 
columns per his own wishes. After the 
main program and the “shell” are load- 
ed the screen is formatted with prompts 
for title information. Nine titles are 
accepted. After completing this formal- 
ity you are ready for the traveler’s 
nightmare, the actual data for your 
expenses. The thing that makes this 
program outstanding is that calcula- 
tions are made for you, and any input 
errors are remedied without heavy eras- 
ing. All you do is edit the column and 
the totals are updated. 


GRAPH+ 
Imagine the boss, or personnel man- 
ager, when he sees your next expense 


report complete with a pie chart. Now 
you know what GRA PH-+ is all about. 
Using the data file you developed earlier 
in EX PNS+ you сап now generate a pie, 
bar or line chart for any row or column 
of your spreadsheet. I prefer the pie 
chart format. A 3” circle is divided into 
up to 18 categories. Each division is 
listed both in a summary at the bottom 
of the page and adjacent to its portion of 
the chart. Very impressive, to say the 
least. Output is formatted for a DMP 
100 dot matrix printer. No mention is 
made of the adaptability of other print- 
ers. 


TELEX+ 

Your Model 100 is also an electronic 
mailbox. With TELEX+ youcan senda 
text file to any telex machine in the 
world or send ап ЕСОМ, electronic 
mailgram, to any mail address. Sending 
a Telex is very simple. After loading the 
program, and connecting your modem, 
you place the cursor over TELEX+, and 
as quick as you can say "Western Union” 
a prompt appears asking "Which doc- 











Plot Against Your Competition! 
with QuickPlot® 












Е We've just given the CGP-115 Color 
ХҮ2 - :982 Plotter business status. With Quick- 
Plot, your TRS-80 or IBM-PC can 
produce high quality line-, bar-, and 
pie-charts in vivid color. Simple data 
entry and flexible chart formatting 
makes QuickPlot and the CGP-115 
Color Plotter the logical choice for 
the professional who wants to plot 
his profits—not spend them. 
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Now you have a friend in the software business. 














Complete QuickPlot Package Modelll/12/16........... $89 

Includes: Bar Chart, Pie Chart, Model 111/4 ............. $89 : : 
and Line Graph. Data and chart Model100.............. $49 2611 Windsor Forest Drive 
formats save to disk for future ІВМ-РС/ХТ............. $89 Louisville, KY 40272 
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(502) 937-4311 


Call or write to place your order or send for free 
information. 


plotting. 





TRS-80 and CGP-115 are registered trademarks of Tandy Corporation. PC and 
PC/XT are registered trademarks of IBM Corporation. 
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қ Toledo Leo's 
ALABAMA аа — 4 Reitz Electronics, Inc. 
ense a Scottsburg Пасо Shack of Scottsburg OREGON 
Madison Madison Books KANSAS Eugene Libra Books, Inc. 
ALASKA ; Medford John's News Stand 
Fairbanks Electronic World Topeka ade aie gp Portland 80-Plus 
Fairbanks News Agency " — Roseburg Rainy Day Bookshop 
Kotzebue Arctic Bookstore, Inc. еза Deere Radio ^ FqupmentCO. PENNSYLVANIA 
ARIZONA KENTUCKY Pleasant Hills Pittsburgh Computer Store 
POSNE baa Аг Benton Anderson Electronics SOUTH САҚИНА 
Computer Pro Pikeville Gus-Stan Enterprises Greenville Palmetto News Co. 
Scottsdale Softwareland Corp. LOUISIANA North 
Tucson Anderson News Co, Slidell Radio Shack Charleston The Green Dragon 
өл IA eon MAINE TENNESSEE 
ег то Вгаіп Chattanooga Anderson News Со. 
Citrus Heights Software Plus South Porland Portiand News Co. Knoxville pb ieee 
Half Moon Bay Strawflower Electronics MASSACHUSETTS Memphis Computer Center 
North Littleton Computer Plus Nashville Mosko's Book Store 
Hollywood Levity Distributors Marlboro Radio Shack Smyma Delker Electronics, Inc. 
.Sunnyvale Computer Literacy Wobum Microcon Software Centers TEXAS 
CONNECTICUT MICHIGAN Austin Austin News Agency 
Hartford The Aetna Life Club Store Novi MI Software Dist., Inc. Capitol Micro Computers 
DELAWARE NEBRASKA Software & Things 
Wilmington Normar Inc.—The Smoke Shop Lincoln Hobby Town Dallas Micro Concepts, Inc. 
FLORIDA NEVADA Elgin Homing Pigeon 
Ft. Lauderdale Software Connection Las Vegas Hurley Electronics Ft. Worth A & A Intemational 
Miami Newsrack NEW HAMPSHIRE RH Electronics 
Panama City — Computer Systems Group Manchester Brookwrights Irving Software Access 
Pensacola Anderson News Co. Petersborough Radio Shack WASHINGTON 
Tallahassee Anderson News Co. West Lebanon  Verham News Corp. Blaine Compulit Dist. 
Winter Park Independent Computer Systems = NEW JERSEY Richland C & J Electronics Computer Center 
GEORGIA Hackensack Total Circulation Service Seattle Adams News 
Atlanta Guild News Agency Midland Park | Software City WISCONSIN 
Columbus Muscogee News Co. Pennsville Dave's Electronic Radio Shack Appleton Badger Periodicals 
Trenton The Phone Line NEW MEXICO Janesville Book World 
ILLINOIS Albuquerque Page One Newsstand Portage Sam's Electronics 
Chicago Kroch's & Brentano's NEW YORK CANADA: 
Jackson Street — Johnson City Unicorn Electronics ALBERTA 
Kroch’s & Brentano's New York City — Usercom System, Inc. Calgary Rainbow Software Services 
Wabash Ave. NORTH DAKOTA Edmonton Kelly's Software Distributors 
Chicago Роме News Agency Fargo Computer Associates NOVA SCOTIA 
j сет Kroch's & Brentano's OHIO Halifax Atlantic News 
DIANA Cincinnati Softwarehouse ONTARIO 
Elkhart Elkhart City News & Book Store Lakewood Lakewood International News Hamilton Galls Book World 
ument to send?" A preformatted Telex SOFTWARE loaded using CLOAD. Instructions are 


is then sent to any point in the world. 
Instructions are given for registration 


Frankenstein Adventure 


with Action Telex. A $150 per year fee is 
required to use this service but I’m sure 
it’s worthwhile if your business war- 
rants the use of Telex. Due to this fee I 
didn't try this feature, even though 
PSCG will give you a temporary code 
for up to three messages at no cost. 


Summary 

As I mentioned last month the docu- 
mentation is excellent. Step-by-step in- 
structions are supplied with several exam- 
ples for each program. A direct tele- 
phone number is given for general ques- 
tions. Or, better than that, send them a 
Telex! 


(Portable Computer Support Group, 
11035 Harry Hines Blvd., No. 207, 
Dallas, TX 75229, $89.95, includes 
manual and six cassettes) 


— Dan Downard 


Included In Game Pack 


Adventures are probably the most 
adaptable game applications for com- 
puters. Imagine yourself in a cemetery 
opening a secret note from Victor Fran- 
kenstein reading “As my last living rela- 
tive you are entrusted with a great mis- 
sion." Sounds interesting already. 

Frankenstein Adventure is one of the 
four programs offered by SilverWare as 
part of a game package also containing 
Reversi, Blockade and Alexis Adven- 
ture. The games range in memory require- 
ments from 6.5K to 18.5K. If you haven't 
noticed, the amount of available mem- 
ory is listed below the BASIC sign-on 
message. Frankenstein Adventure re- 
quires 15K as it is a BASIC program and 


included for storing the program in 
memory for quicker recall. 

Cemetery gates, mansions and tomb- 
stones seem to be the theme of this 
adventure. What would you expect from 
Frankenstein? Commands can be abbre- 
viated by the use of a single key such as 
“N” to go North. All input has to be in 
upper case. I played the game several 
times. Once I died in quicksand, while 
another time I was left wandering in a 
mansion looking for clues to the puzzle. 
The program gave adequate response to 
my input and was interesting to play. 
No graphics were encountered. 

I would recommend Frankenstein Ad- 
venture to anyone who enjoys adven- 
ture games, and as a diverse addition to 
the game pack. Have fun—and please 
tell us what you find in the library. 


(Siverware, P.O. Box 21101, Santa 
Barbara, CA 93121, tape $24.95) 


— Pat Downard 
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0 PCM September 1983 


SAVE $120 





ia | оп the TRS-80 Model 100 with 8K RAM 
Model 100 Cables stock #26-3801 
CoCo to Model 100 Cables 


Model 100 8K Memory 


— $19.95 Upgrade Module 
CoCo to Model I, II, III, IV $85 each 
— $24.95 2 or more $80 each 


External 6 volt Battery 





— $19.95 For quick delivery call: 
93-15 86th DRIVE 
WOODHAVEN, NY 11421 
(212) 441-2807 
Add $4 shipping and handling. N.Y. residents add sales tax. 
Call our Bulletin Board for free Model 100 programs. BBS #1 — (212) 441-3755 
Now on line... 20 MEG. CORVUS HARD DISK DRIVE BBS #2 — (212) 441-3766 


BBS #3 — (212) 441-5719 








Introducing the most logical place to store And, it’s portable. Because the lid doubles 
Elephant Memory Systems? (or lesser brands asa ay handle so your Elephant Memory 
1 


of disks): The Trunk. Systems® disks can go anywhere you do. 
With its alphabetized library index, you can There’s a model for 51/4” and 8” floppies, as 

file or retrieve up to 60 disks, instantly. well as a cassette-and-game file and a special 
The Trunk is made of durable molded Atari® version. 

plastic with a hinged, one-piece lid, to keep So if you're looking for the best disk storage 

disks safe from dust, dirt, and other detriments system оп (һе market... 

which disks despise. The Trunk is an open-and-shut case. 


Elephant Memory Systems® Disks 
A full line of top-quality floppies, in virtually every 51/7" and 8" model, for compatibility with virtually every computer on the market. 
Guaranteed to meet or exceed every industry standard, certified 100% error-free and problem-free, and to maintain its quality for at least 
12 million passes for over a life-time of heavy-duty use). 
Marketed exclusively by Leading Edge Products, Information Systems and Supplies Division, 
55 Providence Highway, Norwood, MA 02062. Dealers: call toll-free 1-800-343-8413; 
or in Massachusetts, call collect (617) 769-8150, Telex 951-624. 


